Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.
7 мостов, перелет стоит 9
var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
Компью́терная анима́ция — вид мультипликации, создаваемый при помощи компьютера.
14 детей в классе
7 математика
5 оба
2 только история
12 девочек и мальчиков
9 мальчиков
3 девочки