введите 2 числа a ,b выведите на экран порядковый номер меньшего из них
Ответы на вопрос
Ответил TugodumOk
0
program qq;
var a,b:integer;
begin
writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);
end.
var a,b:integer;
begin
writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);
end.
Ответил ihorsyrota
0
Там ж порядковый номер просят
Ответил иьим
0
и?
Ответил TugodumOk
0
ну дак ве впорядке
Ответил TugodumOk
0
все
Ответил ihorsyrota
0
program p1;
var a,b:integer;
begin writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);end.
var a,b:integer;
begin writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);end.
Ответил TugodumOk
0
ну дак я переделал еще до того как ты ответил
Ответил TugodumOk
0
ну когда ты писал я переделал
Ответил ihorsyrota
0
ок
Ответил TugodumOk
0
завтра олимпиада по инфе а я хернёй страдаю
Ответил TugodumOk
0
пошол искать нормальные задачи
Новые вопросы