Задача 1. Даны 10 целых чисел. Составить программу нахождения:
а) суммы 1,5,10 чисел;
б) произведения 2,4 чисел;
в) разности 3,5,9 чисел;
г) квадратов 6,8 чисел
Var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,
S,P,R,KV1,KV2 : integer;
Begin
S,P,R,KV1,KV2 : integer;
Begin
a1:=25; a2:=-15; a3:=2; a4:=12; a5:=0;
a6:=41; a7:=0; a8:=-11; a9:=4; a10:=55;
a6:=41; a7:=0; a8:=-11; a9:=4; a10:=55;
S:=a1+a5+a10;
P:=a2*a4;
R:=a3-a7-a9;
kv1:=a6*a6;
kv2:=a8*a8;
P:=a2*a4;
R:=a3-a7-a9;
kv1:=a6*a6;
kv2:=a8*a8;
writeln (s);
writeln (P);
writeln (R);
writeln (kv1);
writeln (KV2);
writeln (P);
writeln (R);
writeln (kv1);
writeln (KV2);
End.
Комментариев нет:
Отправить комментарий