1.е
2.b
3.c
4.c
5.e
6.b
7.c
8.c
9.c
10.с
11.a
12. Read(A,B); A:=A*2; B:+B+10;
13. var a: Array[1..5,1..5] of real;
14.a
15. c
16. d
17.a
18 нет блок схемы
19. 1-e 2-d 3-c 4-b 5-a
20. var a,b,S,P: real;
begin
write('Ввод сторон прямоугольника');
Read (a,b);
P:=(a+b)*2;
S:=a*b;
Write('Периметр:', P);
Write('Площадь:', S);
End.
Блок схему по программе легко нарисовать.

0 0

4 года назад

Составьте программу Найти площадь прямоугольника если S=1/2 a*b

Yulia--

Var a,b,s:real;
begin
write ('Введите длину: ');
readln (a);
write ('Введите ширину: ');
readln (b);
s:=a*b;
writeln ('Площадь = ',s);
end.

0 0

1 год назад

Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элеме

масу

var

a:array [1..10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(20)+1;

write (a[i],' ');

end;

writeln;

for i:=1 to 10 do

if odd(a[i])=true then write (a[i],' ');

readln;

end.

0 0

3 года назад