Регистрация
Тётко
20.02.2020 07:11
Информатика
Есть ответ 👍

Напишите решение желательно с блок схемой var n, a, i, k:integer;
Begin
read(n);
k:=0;
for i:=1 to n do
begin
read(a);
if (a mod 4 = 0) and (a mod 3 <> 0)
then k:=k+1;
end;
writeln(k);
end
входные данные:
5
32
12
28
48
4
​

210
386
Посмотреть ответы 1

Ответы на вопрос:

berezkina04
berezkina04
4,7(73 оценок)

uses crt;  

var

a,k,s: shortint;

sr: real;

begin

clrscr;

randomize;

repeat

a: =random(10)+1;

write (a: 3);

k: =k+1;

s: =s+a;

until k=10;

sr: =s/k;

writeln;  

writeln ('srednee: ',sr: 0: 4);

readln;

end.

Популярно: Информатика