Предмет: Информатика, автор: SunPeople

Pascal. 40 баллов (не вру).
Задание: На вход подаются два числа: a и b. Вывести наибольшее из них, а затем решить 5*min – 156.

Я написала:
program qq;
var a, b, min: integer;
begin
readln (a,b);
min:=a;
if (a>b) then
min:=b;
writeln(min);
end;
var a, b, min: integer
begin
writeln (a)
readln (a)
writeln (b)
readln (b)
writeln (min)
readln (min)
writeln ('5*min – 156'; '5*min – 156')
end.

Не особо шарю, помогите. Что не так, и как правильно сделать? Молююю!

Ответы

Автор ответа: newp1rat
1

Все крайне просто (20 символов нужно написать)

Приложения:

SunPeople: спасибо!
SunPeople: program qq;
var a, b, min: integer;
begin
readln (a, b);
if (abegin
min:= a;
max:= b;
end
else
begin
min:= b;
max:= a;
end;
writeln (IntToStr (max));
writeln (IntToStr (5*min-156));
end.
SunPeople: ой
SunPeople: program qq;
var a, b, min: integer;
begin
readln (a, b);
if (abegin
min:= a;
max:= b;
end
else
begin
min:= b;
max:= a;
end;
writeln (IntToStr (max));
writeln (IntToStr (5*min-156));
end.
SunPeople: оно не отправляется так как надо
Похожие вопросы
Предмет: Русский язык, автор: Yournewfriend
Предмет: Алгебра, автор: antoninavirtosu743
Предмет: Русский язык, автор: Аноним
Предмет: Алгебра, автор: малфой132
Предмет: Алгебра, автор: nikkutylov