Дано четырехзначное число. Определить: какая цифра больше: вторая или последняя....

July 2022 2 23 Report

Дано четырехзначное число. Определить: какая цифра больше: вторая или последняя.
Сделать блок-схему и написать готовую программу.

Удачник66

Verified answer

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.

Sky09 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.

Answers & Comments

Verified answer

dan massiv najti kolichestvo otricatelnyh chetnyh elementov kratnyh 7var aarr

dan odnomernyj massiv zamenit vtoroj element zadannym chislom

reshit zadachu cherez for i while

kak v dvumernom massive najti srednee arifmeticheskoe odnoznachnyh elementov

opredelit kolichestvo trehznachnyh naturalnyh chisel summa cifr kotoryh ravna

chto tut nepravilno var aarray110110 of integerimnjk integer sr

napishite uravnenie reakcij v molekulyarnom i ionnom vide mezhdu rastvorom azotnoj

sm3bba355a4f5776435e1f3b7956f6af5f8 72675

dany 3 chisla abcopredelit yavlyayutsya li oni uglami pryamougolnogo treugolnika

netronutoe chelovekom mesto pochemu pishetsya slitno

рекомендуемые вопросы

Helpful Links

Helpful Social