Function IsEqual(n:longint):boolean; { возвращает True, если первая и последняя цифры числа равны } var s:string; begin Str(n,s); IsEqual:=(s[1]=s[Length(s)]) end;
var k:longint; begin Write('Введите натуральное число '); Read(k); Write('Первая и последняя цифры введенного числа '); if not IsEqual(k) then Write('не '); Writeln('совпадают') end.
Тестовые решения: Введите натуральное число 15342403 Первая и последняя цифры введенного числа не совпадают
Введите натуральное число 745370007 Первая и последняя цифры введенного числа совпадают
CD/DVD-привод Флоппи-привод Клавиатура Винчестер или накопитель внутренний Опять же флоппи-дисковод наверно Видеокарта Звуковая карта Сетевая карта Да Временная память компьютера сохраняет необходимые для запуска и корректной работы приложений файлы Хранение информации Обработка задач Нет Да Перечень накопителей подключенных к пк Документы - Удаленные файлы Хер ее знает. Удаляет безвозвратно может - Панель управления Клик пкм-создать-выбрать что создать Тоже самое только выбрать создать ярлык Тоже самое только выбрать создать папку Пкм на предмет-переименовать Не приводит Уже выше написал - - Для быстрого запуска программы
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.