Предмет: Информатика,
автор: vareeenka
пожалуйста, помогите решить задачи по Паскалю!!!
1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,
ПОМОГИТЕЕ
Ответы
Автор ответа:
0
Пишу с планшета, так что заранее извиняйте если что)
Var
a,b:integer;
begin
Readln(a);
Readln(b);
If a>b
then b:=sqr(b)
else a:=sqr(a)
End.
Как то так)
Var
a,b:integer;
begin
Readln(a);
Readln(b);
If a>b
then b:=sqr(b)
else a:=sqr(a)
End.
Как то так)
Автор ответа:
0
Огромное спасибо за решение!
Похожие вопросы
Предмет: Литература,
автор: m4t1v4ik
Предмет: История,
автор: ReGbooy228
Предмет: Қазақ тiлi,
автор: aigerimakulbaeva
Предмет: Биология,
автор: Аноним
Предмет: Алгебра,
автор: aniamedvede