8 класс, напишите программу на Pascal ABC по этой задаче. Именно ...

Question

8 класс, напишите программу на Pascal ABC по этой задаче. Именно ...

Viktor

8 класс, напишите программу на Pascal ABC по этой задаче. Именно программу которую можно скопировать напрямую в сам паскаль, большое спасибо. Сама задача: "Вводится N целых чисел, определите количество чисел кратных 10"

Есть ответ

12.12.2022

150

Ответ

Answer 1 · 12.12.2022

Ответ:

Объяснение
var n,i,a,b:integer;
begin
b := 0;
write('введите n - '); readln(n);
for i:= 1 to n do begin
write('введите a - '); readln(a);
if a mod 10 = 0 then
b := b + 1;
end;
write('количество чисел кратных 10 - ', b);
end.

8 класс, напишите программу на Pascal ABC по этой задаче. Именно ...

Ответ

Ответ: Объяснение var n,i,a,b:integer; begin b := 0; write('введите n - '); readln(n); for i:= 1 to n do begin write('введите a - '); readln(a); if a mod 10 = 0 then b := b + 1; end; write('количество чисел кратных 10 - ', b); end.

Ответ:

Объяснение
var n,i,a,b:integer;
begin
b := 0;
write('введите n - '); readln(n);
for i:= 1 to n do begin
write('введите a - '); readln(a);
if a mod 10 = 0 then
b := b + 1;
end;
write('количество чисел кратных 10 - ', b);
end.