Дано четырехзначное число. Определить: какая цифра больше: вторая или последняя.
5-9 класс
|
Сделать блок-схему и написать готовую программу.
uses crt;
var a,b,c:integer;
begin
readln(a);
if (a>=1000) and (a<=9999) then
begin
b:=a mod 10;
c:=a div 100 mod 10;
if b>c then writeln('последняя')
else if b<c then writeln('вторая')
else if b=c then writeln('равны');
end
else writeln('error');
end.
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.
Другие вопросы из категории
Читайте также
от деления этого числа на 2.
2. Ввести двузначное число. Определить, какая цифра в числе больше.
3. Дано число. Является ли число 7 его делителем?
больше:
а) первая или последняя;
б) первая или вторая;
в) вторая или последняя.
РЕШИТЬ на Visual Studio
входной файл содержит целое четырехзначное число 1000≤