Задать вопрос
28 июня, 22:33

Пусть дано N чисел, введенных с клавиатуры. Найти количество только тех из них, которые кратны 2 и оканчиваются на 8.

Программа в паскале (с помощью цикла)

+1
Ответы (2)
  1. 28 июня, 23:28
    0
    Var

    i, N, A, k:integer;

    Begin

    k:=0;

    Write ('N = ') ; Read (N) ;

    For i: = 1 to N do

    Begin

    Read (A) ;

    if (A mod 10 = 8) then k:=k+1;

    End;

    WriteLn (k) ;

    End.
  2. 29 июня, 01:31
    0
    Var a: array [1 ... 100] of integer;

    k, n, i:integer;

    begin

    k:=0;

    write ('Введите размер: ') ;

    readln (n) ;

    for i:=1 to n do

    readln (a[i]) ;

    for i:=1 to n do

    begin

    If a[i] mod 10=8 then

    k:=k+1

    end;

    write (k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Пусть дано N чисел, введенных с клавиатуры. Найти количество только тех из них, которые кратны 2 и оканчиваются на 8. Программа в паскале ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы