Регистрация
energo5165
09.06.2020 03:07
Информатика
Есть ответ 👍

Дано трехзначное целое число вычислить сумму цифр при excel

194
319
Посмотреть ответы 1

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

ulyanatretakova
ulyanatretakova
4,6(58 оценок)

program mas_krat_8;

const n=15;

var

a:array[1..n] of integer;

i:integer;

begin

for i:=1 to n do

a[i]:=random(51)+40;

for i:=1 to n do

write(a[i],' ');

writeln;

for i:=1 to n do

if (a[i]mod 10 =8)

then

write(a[i],' ')

end.

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