1. Информатика
  2. Написать программу на

Написать программу на паскале.надо чтобы введенное число оканчивалось на 7.

нпапоащвщц нпапоащвщц    1   20.07.2019 05:20    0

Ответы
angel1073 angel1073  03.10.2020 08:30
Var a:integer;
begin
repeat
  readln(a);
  if (a - (a div 10)*10) <> 7 then writeln ('неверно');
until (a - (a div 10)*10) = 7;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vanaromanihinp077sx vanaromanihinp077sx  08.05.2021 10:44
2. Составить программу определения вида треугольника: равносторонний, равнобедренный, разносторонний.​(С++) ​...
kek129 kek129  08.05.2021 10:42
a=int(input ( Введіть свій зріст ) що це означає. чому потрібно бути уважним з дужками? яку роль відіграють дужки?​ будь ласка, мені вже через 5 хв треба здати....
уютка уютка  08.05.2021 10:40
K=str(1284) що це означає​...
superfrap320 superfrap320  08.05.2021 10:39
Z=float (z) що це означає​...
timatima3 timatima3  08.05.2021 10:39
Исправь ошибки в слиянии строк Выслать предложение о работе: Варя/миша/СтасОдин стажёр пытался запрограммироватьформирование запроса на заключениетрудовых договоров. Увы, он...
tynvik tynvik  08.05.2021 10:37
Х=іnt( 4211 ) що це означає​...
Champion30 Champion30  08.05.2021 10:34
Написать программу, вычисляющую принадлежит ли точка X отрезку [а, b], используя составные условия. Если да, то выдать на экран «принадлежит» и удвоить значение X. Если нет,...
ffbhhb ffbhhb  08.05.2021 10:31
Допишите названия выделенных инструментов через запятую без пробелов ​...
turkmenochka75 turkmenochka75  18.04.2020 17:33
только знающихскажите что нужно знать для создать сайт.какие книги нужно прочитать.какие языки.сколько времени.сколько стоит.какой уровень.как долго изучать языки на определенном...
007sergey 007sergey  18.04.2020 17:31
Имеется таблица вещественных чисел[1:100] посчитайте количество отриц элементов таблицы(на алгоритмическом языке класс Информатика...

Популярные вопросы