Регистрация
И1111111111111111
02.06.2020 22:54
Информатика
Есть ответ 👍

Дан массив из 10 целых чисел в диапазоне [-10000,10000]. определите количество чисел, оканчивающихся на 2. числа вводятся с клавиатуры! написать в паскале)

180
239
Посмотреть ответы 2

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

kulisenok
kulisenok
4,8(40 оценок)
Program z; var a: array [1..10] of integer; k,i: integer; begin k: =0; for i: =1 to 10 do readln(a[i]); for i: =1 to 10 do if a[i] mod 10 = 2 then k: =k+1; writeln(k); end.
ArtyomKashin
ArtyomKashin
4,4(98 оценок)

ответ:program chisla;

var i:integer;

begin

for i:=1 to 100 do

begin

if (i mod 3 = 0)

then write(i,' ');

end;

Объяснение:

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