Регистрация
zadireevaalina
04.06.2021 06:07
Информатика
Есть ответ 👍

Даны два неравных целых двухзначных числа. возвести в квадрат большее из этих чисел и удвоить меньшее число. написать программу для паскаль.

161
472
Посмотреть ответы 2

Ответы на вопрос:

catmartovski
catmartovski
4,6(5 оценок)
Это решение при вручную этих чисел: program sadadasf; var i,k,l: integer; begin writeln('введите первое целое двухзначное число: '); readln(i); writeln('введите второе целое двухзначное число: '); readln(k); if k> i then begin k: =k*k; i: =i*2; end; if i> k then begin i: =i*i; k: =k*2; end; writeln('первое число: ',  i); writeln('второе число: ',  k); end. это решение при чисел в самой программе: program sadadasf; var i,k,l: integer; begini: =5; k: =3; if k> i then begink: =k*k; i: =i*2; end; if i> k then begini: =i*i; k: =k*2; end; writeln('первое число: ',  i); writeln('второе число: ',  k); end.
isokova01
isokova01
4,5(16 оценок)
Что такое "а"? если знаешь напиши, я

Популярно: Информатика