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 и вторая цифра 3, то числа от 4300 до 4399 На паскле программа выглядит так var i, n: integer begin uses crt; for i:= 0 to 99 begin n = 4300 + i; write (n); end; writeln; end. Блок-схема совсем простая, нарисуй сама. 1) Начало (в овале) 2) i = 0 (в прямоугольнике) 3) n = 4300 + i (в прямоугольнике) 4) Вывод n (в параллелограмме) 5) Проверка i > 99 ? (в ромбе). Если нет, возврат на п. 3. Если да, вниз. 6) Вывод пустой строки (в параллелограмме) 7) Конец (в овале)
использовать Робот
алг
нач
нц пока слева свободно
влево
кц
нц пока сверху свободно
вверх
кц
закрасить
нц пока справа свободно
вправо
кц
закрасить
нц пока снизу свободно
вниз
кц
закрасить
нц пока слева свободно
влево
кц
закрасить
кон