КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
БІЛЕТ №11
|
|
|
|
БІЛЕТ №9
Var
s,st:string;
i,x,err:Integer;
sum:real;
ch,zn:Char;
BEGIN
writeln('vvedit vyraz: 3<k<10');
Readln(s);
i:=1;
While Not (s[i] in ['*','/']) Do Begin
st:=st+s[i];
Inc(i);
End;
Val(st,sum,err);
Repeat
zn:=s[i];
If s[i+1]<>'' Then Inc(i) Else break;
st:='';
While (Not (s[i] in ['*','/'])) and (i<=length(s)) Do Begin
st:=st+s[i];
Inc(i);
End;
Val(st,x,err);
If Ord(zn)=42 Then sum:=sum*x Else sum:=sum/x;
Until i>length(s);
Writeln(sum);
Readln;
END.
program zodiac;
Uses CRT;
VAR
date,month: integer;
a:string;
BEGIN
Clrscr;
write('місяць:');
readln(month);
if (month>0) and (month<=12) then
else
write('Взагаліто 12 місяців...');
case month of
{Січень} 1:
begin
write('День:');
readln(date);
if (date>0) and (date<=31) then
if (date>0) and (date<=20) then
write('Козеріг')
else
write('Водолій')
else
writeln('В місяці стільки днів не буває!');
end;
{Лютий} 2:
begin
write('День:');
readln(date);
if ((year mod 4=0) and (year mod 100 <> 0)) or (year mod 400=0)then
if (date>0) and(date<=29) then
if (date>0) and (date<=18) then
write('Водолій')
else
write('Риби')
else
write('Це не високосний рік!!')
else
if (date>0) and (date<=28) then
if (date>0) and (date<=18) then
write('Водолей')
else
write('Риби')
else
write('Це не високосний рік!');
end;
{Березень} 3:
begin
write('День:');
readln(date);
if (date>0) and (date<=31) then
if (date>0) and (date<=20) then
write('Риби')
else
write('Овен')
else
writeln('В місяці стільки днів не буває!');
end;
{Квітень} 4:
begin
write('День:');
readln(date);
if (date>0) and (date<=30) then
if (date>0) and (date<=20) then
write('Овен')
else
write('Телець')
else
writeln('В місяці стільки днів не буває!');
end;
{Травень} 5:
begin
write('День:');
readln(date);
if (date>0) and (date<=31) then
if (date>0) and (date<=21) then
write('Телець')
else
write('Близнюки')
else
writeln('В місяці стільки днів не буває!');
end;
{Червень} 6:
begin
write('День:');
readln(date);
if (date>0) and (date<=30) then
if (date>0) and (date<=21) then
write('Близнюки')
else
write('Рак')
else
writeln('В місяці стільки днів не буває!');
end;
{Липень} 7:
begin
write('День:');
readln(date);
if (date>0) and (date<=31) then
if (date>0) and (date<=23) then
write('Рак')
else
write('Лев')
|
|
|
else
writeln('В місяці стільки днів не буває!');
end;
{Серпень} 8:
begin
write('День:');
readln(date);
if (date>0) and (date<=31) then
if (date>0) and (date<=23) then
write('Лев')
else
write('Діва')
else
writeln('В місяці стільки днів не буває!');
end;
{Вересень} 9:
begin
write('День:');
readln(date);
if (date>0) and (date<=30) then
if (date>0) and (date<=23) then
write('Діва')
else
write('Терези')
else
writeln('В місяці стільки днів не буває!');
end;
{Жовтень} 10:
begin
write('День:');
readln(date);
if (date>0) and (date<=31) then
if (date>0) and (date<=23) then
write('Терези')
else
write('Скорпіон')
else
writeln('В місяці стільки днів не буває!');
end;
{Листопад} 11:
begin
write('День:');
readln(date);
if (date>0) and (date<=30) then
if (date>0) and (date<=22) then
write('Скорпіон')
else
write('Стрілець')
else
writeln('В місяці стільки днів не буває!');
end;
{Грудень} 12:
begin
write('День:');
readln(date);
if (date>0) and (date<=31) then
if (date>0) and (date<=21) then
write('Стрілець')
else
write('Козеріг')
else
writeln('В місяці стільки днів не буває!');
end;
end;
readln;
END.
|
|
|
|
|
Дата добавления: 2015-05-08; Просмотров: 272; Нарушение авторских прав?; Мы поможем в написании вашей работы!