Вырезать из четырехзначного числа первую и последнюю цифры - Free Pascal
Формулировка задачи:
Напишите программу коротая вводит четырехзначное число и вырезать из него первую и последованию цифру .(напитать программу в ПАСКАЛЕ( Free Pascal IDE или
другой ) и qбесик (64 или другой)).
Например:
1234=23
4567=56
Решение задачи: «Вырезать из четырехзначного числа первую и последнюю цифры»
textual
Листинг программы
- var n: Integer;
- begin
- ReadLn(n); n:=n div 10 mod 100;
- if n<10 then Write(0); WriteLn(n);
- end.
Объяснение кода листинга программы
- Объявляется переменная
nтипа Integer - С помощью функции ReadLn() в переменную
nсчитывается четырехзначное число - Выполняется операция деления нацело (div) и остатка от деления (mod), результат сохраняется в переменной
n - Проверяется условие
if n<10, если число меньше 10, то выводится сообщение (Write) на экран - Число выводится на экран с помощью функции WriteLn()
- Код завершается, когда достигается условие окончания работы программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
