1 вапрос атвет 1 2 вапрос 3 атвет 3 вапрос 1 атвет 4 атвет 1 атвет
Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
7задание
6апр
13апр
20апр
27апр
МКС...................это ответ
P.S.:
вдруг если училка спросит что такое
МКС -это международная космическая станция (15 стран)
650 ПЕРЕВЕСТИ В КБ И ДЕЛИТЬ НА 3072
650x1024=665600
665600/3072=216,6сек
216,6/60=3,61мин