50

Вывести на экран все двузначные числа которые заканчиваются на 1 (паскаль) Срочно!

30 марта 2023

Вывести на экран все двузначные числа которые заканчиваются на 1 (паскаль) Срочно!

категория: информатика



63

program gg; var: i,b,c: integer; a: array [1… n] of integer; beginwriteln ('vvedite chisla'); readln (a); beginfor i: =1 to n dobeginif (a[i] mod 10=1) and (a[i]<99) and (a[i]>10) thenb: =a[i]; writeln (b); end; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...