Регистрация
александра529
16.02.2020 03:37
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 3. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – количество чисел, оканчивающихся на 3.

138
464
Посмотреть ответы 3

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

kristinakarpen
kristinakarpen
4,7(55 оценок)

clsa: input nif n < 1 or int(n) < > n or n > 1000 then goto adim a(n)for i = 1 to nb: input a(n)if a(n) < 1 or int(a(n)) < > a(n) or a(n) > 30000 then goto bif int ((a(n) - 3) / 10) = ((a(n) - 3) / 10) then z = z + 1next iprint zend

LIZA31012006
LIZA31012006
4,5(2 оценок)

var

n: word;

a,i,k: integer;

begin

while (n< =0) or (n> 1000) do begin 

write ('0< n< =1000 '); readln(n);  

end;  

repeat

readln(a);

if a mod 10 = 3 then k: =k+1;  

i: =i+1;  

until i=n;

writeln ('');  

writeln (k);

readln;

end.

nastyaturchina
nastyaturchina
4,8(24 оценок)
Зайди в интернет введи и получиш в картинках

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