Лицо!!!!!!!!!!!!!!!!!!!!!!!!
Широкополосная сеть стала доступна (2000)
№1
Блок-схема в среде программирования-3
Ввод данных и исправление ошибок -4
Вывод-5
№2
В паинте нарисовал
№3
program z1
var r;d: real;
begin
readln (r);
d=2r;
writeln (d);
end.
№5
6-12
7-14
CLS
a:
INPUT "введи основание"; a
IF a<=0 THEN PRINT "не может быть": GOTO a
b:
INPUT "введи высоту"; h
IF h<=0 THEN PRINT "не может быть": GOTO a
S=a*h/2
PRINT "площадь треугольника равна"; S
END
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>