Регистрация
eliseyivanov9
30.07.2022 04:04
Информатика
Есть ответ 👍

Склавиатуры вводится 5 целых чисел . вывести на экран только однозначные числа

248
284
Посмотреть ответы 3

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

georgijandreev1
georgijandreev1
4,8(88 оценок)

var

  a: array [1..5] of integer;   //массив из 5 целочисленных элементов

  i: integer;

 

begin

  for i: = 1 to 5 do 

  begin

    writeln('введите целое число');

    readln(a[i]);

  end;

  write('однозначные числа:   ');

  for i: = 1 to 5 do

    if a[i] div 10 = 0 then write(a[i], '   ');

end.                                                                                      

дагмгп
дагмгп
4,6(50 оценок)

var

  a: array [1..5] of integer;   //массив из 5 целочисленных элементов

  i: integer;

 

begin

  for i: = 1 to 5 do 

  begin

    writeln('введите целое число');

    readln(a[i]);

  end;

  write('однозначные числа:   ');

  for i: = 1 to 5 do

    if a[i] div 10 = 0 then write(a[i], '   ');

end.

qwerty20003
qwerty20003
4,8(96 оценок)
в группе 82 человека

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