Предмет: Информатика, автор: medved121

умоляю помогите с информатикой 10 класс все 3 задачи

Приложения:

Ответы

Автор ответа: AnonimusPro
0
1)
Program n1;
var a,sum: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if(a<100) and(a>9) and(a mod 10=3)
then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.

2)
Program n2;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if(a mod 3=0) and (a mod 10=5)
then k:=k+1;
readln(a);
end;
writeln(k);
end.

3)
Program n3;
var a: integer;
p: real;
begin
readln(a);
p:=1;
while a<>0 do
begin
if(a<100) and(a>9) and(a mod 10=3)
then p:=p*a;
readln(a);
end;
writeln(p);
end.
Автор ответа: medved121
0
спасибо огромное
Похожие вопросы
Предмет: Английский язык, автор: vasilevicviktor08036
Предмет: Химия, автор: 123456kenjaevjontaj