Ответы на вопрос:
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; beginread(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; beginread(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; beginread(a,b); b*=0.45; if a> b then writeln(b)else if a< b then writeln(a)else writeln('equal'); end.
Популярно: Информатика
-
Jdjsjsbbsbsbдевочка08.03.2020 03:29
-
МашуняДижур23.03.2021 13:41
-
Катюха132428.03.2023 05:11
-
lolmrminilotr21.09.2021 15:09
-
papstik09.02.2023 04:54
-
Зайчик01010109.02.2022 16:45
-
slava0255524.03.2021 10:56
-
светлана49808.02.2021 00:14
-
karina84519.09.2020 11:43
-
angelinakunda13.11.2020 17:21