profile
Опубликовано 5 лет назад по предмету Информатика от Mrsozic

Напишите программу , которая получает 3 целых числа и находит количество чисел, кратно 5
Язык - paskal

  1. Ответ
    Ответ дан kirillankudinov94

    Как-то так:

    var a,b,c,s:integer;

    begin write('введите первое число - ');readln(a);

    write('введите второе число - ');readln(b);

    write('введите третье число - ');readln(c);

    if (a mod 5 = 0)

    then s = s + 1;

    if (b mod 5 = 0)

    then s = s + 1;

    if (c mod 5 = 0)

    then s = s + 1;

    write ('кол-во чисел, кратных 5-ти - ', s);

    end.