М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Era2008
Era2008
28.08.2020 18:44 •  Информатика

Сколько окаменелостей может жить​

👇
Открыть все ответы
Ответ:
fenx73
fenx73
28.08.2020
Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.
4,6(87 оценок)
Ответ:
evdhsd13
evdhsd13
28.08.2020

program z1;

var o1,o2,o3:integer;

sr:real;

begin

repeat

write ('Введите 1 оценку ');

read (o1);

if (o1<2) or (o1>5) then writeln ('Ошибка')

until (o1>1) and (o1<6);

repeat

write ('Введите 2 оценку ');

read (o2);

if (o2<2) or (o2>5) then writeln ('Ошибка')

until (o2>1) and (o2<6);

repeat

write ('Введите 3 оценку ');

read (o3);

if (o3<2) or (o3>5) then writeln ('Ошибка')

until (o3>1) and (o3<6);

sr:=(o1+o2+o3)/3;

if sr<2.5 then writeln('Петя, ты двоечник по информатике')

else

if sr>4.5 then writeln('Петя, ты отличник по информатике')

else

if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')

else writeln('Петя, ты ударник по информатике')

end.

4,7(58 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ