С клавиатуры вводится 5 целых чисел

Question

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

Answer 1

45

maximilian

10 сентября 2024

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: