Задание 1: По описаниям восстановите рисунки Описание Прямоугольник 40, 70, 90, 40 Прямоугольник 90, - id1566603220220728 от Сашуньк 28.07.2022 21:47

Question

Информатика: Задание 1: По описаниям восстановите рисунки Описание Прямоугольник 40, 70, 90, 40 Прямоугольник 90, 100, 130, 40 Прямоугольник 100, 90, 120, 70 Установить 130, 50 Линия к 140, 50 Прямоугольник 140, 90, 230, 40 Окружность 60, 30, 10 Окружность 110, 30, 10 Окружность150, 30, 10 Окружность 170, 30, 10 Окружность 200, 30, 10 Окружность 220, 30, 10 Прямоугольник 50, 100, 60, 70 Окружность 60, 110, 5 Окружность70, 130, 10 Окружность 90, 150, 15 Задание 2:По описаниям восстановите рисунки Описание Установить

Сашуньк · Accepted Answer

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.

MOGZ ответил