Задать вопрос
1 апреля, 20:24

Составьте программу, по которой компьютер 10 раз запросит ввод целого числа и в результате сообщит, сколько среди них оканчивается нулём, а сколько пятью (в Паскале). Как можно скорее!

+4
Ответы (1)
  1. 1 апреля, 22:41
    0
    Program n1;

    var a, k0, k5, i: integer;

    begin

    for i:=1 to 10 do

    begin

    write ('введите число: ') ;

    readln (a) ;

    if a mod 10 = 0 then k0:=k0+1;

    if a mod 10 = 5 then k5:=k5+1;

    end;

    writeln ('кол-во ок. на 0: ', k0) ;

    writeln ('кол-во ок. на 5: ', k5) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу, по которой компьютер 10 раз запросит ввод целого числа и в результате сообщит, сколько среди них оканчивается нулём, а ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных. Паскаль, соответственно.
Ответы (1)
Составить блок схему и программу по которой комп 10 раз запросит ввод целых чисел и сообщит сколько четных и нечётных (прогу в паскале)
Ответы (1)
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы, используя операторы While, Repeat, For.
Ответы (1)
50+лучший Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).
Ответы (2)
Составьте программу, которая последовательно запросит 10 целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных чисел.
Ответы (1)