Регистрация
Omursinovaa03
29.03.2020 00:09
Информатика
Есть ответ 👍



нарисуйте блок-схему и напишите программу, которая в последовательности натуральных чисел, оканчивающейся на 0, определяет количество чисел, оканчивающихся на 4

291
410
Посмотреть ответы 1

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

Nodukam
Nodukam
4,6(23 оценок)

1)

uses crt;

var a,b,i,sum: integer;

begin

read(a,b);

for i: =a to b do

if (i> 0) and (i mod 4=0) then sum: =sum+i;

write(sum);

end.

2)

uses crt;

var i,n: integer;

    s,tmp: string;

begin

read(n);

tmp: =inttostr(n);

for i: =length(tmp) downto 1 do

s: =s+tmp[i];

write(s);

end.

для abc pascal. иначе функцию inttostr нужно будет заменить на str(n,tmp)

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