Дано четырехзначное число. Определить: какая цифра больше: вторая или последняя.
Сделать блок-схему и написать готовую программу.
Ответы
Ответ дал:
0
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.
Ввести число 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.
Ответ дал:
0
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.
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.
Приложения:
![](https://st.uroker.com/files/32d/32dbf3c9e2c669fe2dc9596913667097.jpg)
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад