1) x mod 2 = 1
2) if x < 0 then x := -x
3) в
4) б
5) в
6) в
7) б и в
8) \овал: Начало\
\стрелка вниз\
\параллелограмм: N := 2\
\стрелка вниз\
\ромб: N > 200?\
\стрелка да\
\овал: Конец\
\стрелка нет\
\параллелограмм: Вывести число N\
\стрелка вниз\
\параллелограмм: N := N + 2\
\стрелка к ромбу\
Единица измерения, Бит, Байт, КБ(КилоБайт), МБ(МегаБайт), ГБ(ГигаБайт), ТБ(ТераБайт)
Ответ:
1
Объяснение:
Высказывание А истинно, поэтому его значение - истина. Которую, в частности, обозначают константой 1.
Ну вот так вот как-то...
Первое задание — на первом листе, второе — на втором.
Program n1;
Uses CRT;
Var a,b,c,gip: real;
Function S(x,y: real): real;
begin
s:=x*y/2;
end;
Function G(x,y: real): real;
begin
g:=sqrt(sqr(x)+sqr(y))
end;
begin
Writeln('Vvedite katety');
Readln(a,b);
c:=s(a,b);
gip:=g(a,b);
writeln('Ploshad = ',c:3:2);
writeln('Gipotenuza = ',gip:3:2);
readln
end.