Укажите настройки для выделенной анимации
Ответы
{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
ClrScr;
repeat
writeln('INPUT 3-x znachoe');
readln(b);
until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
if a<c then
writeln(a,c)
else
writeln(c,a);
Readkey;
end.
Uses Crt;
var
a,c,b:integer;
begin
ClrScr;
repeat
writeln('INPUT 3-x znachoe');
readln(b);
until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
if a<c then
writeln(a,c)
else
writeln(c,a);
Readkey;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Помгите ! какая фигура обозначает блок вычислений в графическом виде записи алгоритма?
Автор: MelnikovaIvanovna
Написать алгоритм кумир надо
Автор: fokolimp
Напишите программ у, которая находит сумму числового ряда s: =1+2++n цикл while
Автор: violetta152028
Преведи дввоичный код изображений
Автор: Elizavetaborisovna1992
Uses Crt;
var
a,c,b:integer;
begin
ClrScr;
repeat
writeln('INPUT 3-x znachoe');
readln(b);
until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
if a<c then
writeln(a,c)
else
writeln(c,a);
Readkey;
end.