Var s:string; c1,cn:char; n:integer; begin Write('Введите натуральное число: '); Read(n); Str(n,s); c1:=s[1]; cn:=s[Length(s)]; if c1>cn then Writeln('Первая цифра больше последней') else if c1<cn then Writeln('Первая цифра меньше последней') else Writeln('Первая и последняя цифры одинаковы') end.
Тестовые решения Введите натуральное число: 362336 Первая цифра меньше последней
Введите натуральное число: 7341423 Первая цифра больше последней
Введите натуральное число: 4624 Первая и последняя цифры одинаковы
Реферат – сбор и представление исчерпывающей информации по заданной теме из различных источников, в том числе представление различных точек зрения по этому вопросу. При работе над проектом имеется похожий, реферативный этап, который является лишь частью проекта. Исследовательская работа – работа, связанная с решением творческой, исследовательской задачи с заранее неизвестным результатом. Исследование – это лишь этап проектной работы. Проект – работа, направленная на решение конкретной проблемы, на достижение оптимальным заранее запланированного результата. Проект может включать в себя элементы докладов, рефератов, исследований и других видов самостоятельной работы учащихся, но только как достижения результатов проекта.
s:string;
c1,cn:char;
n:integer;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
c1:=s[1];
cn:=s[Length(s)];
if c1>cn then Writeln('Первая цифра больше последней')
else
if c1<cn then Writeln('Первая цифра меньше последней')
else Writeln('Первая и последняя цифры одинаковы')
end.
Тестовые решения
Введите натуральное число: 362336
Первая цифра меньше последней
Введите натуральное число: 7341423
Первая цифра больше последней
Введите натуральное число: 4624
Первая и последняя цифры одинаковы