Составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы (a+b)2и сумму квадратов a2+b2 ‘этих чисел. пример работы программы: введите два числа: a=3 b=2 квадрат суммы 3 и 2 равен 25составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы (a+b)2и сумму квадратов a2+b2 ‘этих чисел. пример работы программы: введите два числа: a=3 b=2 квадрат суммы 3 и 2 равен 25 сумма квадратов 3 и 2 равна13 пятая степень 2 равна сумма квадратов 3 и 2 равна13 пятая степень 2 равна
Ответы
Program chisla; uses crt; var a,b : integer; begin writeln('введите два целых числа'); write('a='); read(a); write('b='); read(b); writeln('квадрат суммы ',a,' и ',b,' равен ',sqr(a+b)); writeln('сумма квадратов ',a,' и ',b,' равена ',sqr(a)+sqr(b)); end.
Самое простое, чтоб без заморочек, занести в массив и отсортировать его var a: array[1..3]of real; i,j: integer; p: real; begin for i: =1 to 3 do begin write('введите число: '); readln(a[i]); end; for i: =1 to 3 do for j: =1 to 3 do if a[j]< a[i] then begin p: =a[i]; a[i]: =a[j]; a[j]: =p; end; for i: =1 to 3 do write(a[i],' ') end.
Const n = 10; var a, b, i, k : integer; mas : array[1..n] of integer; begin read(a, b); randomize(); k : = 0; for i : = 1 to n do begin mas[i] : = random(50); if (mas[i] > = a) and (mas[i] < = b) then k : = k + 1; end; writeln(k); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Пример объекта-процесса: 1)каникулы 2)гроза 3)процессор 4)компьютер
Автор: Египтян2004
РЕБЯТ, КТО-ТО МОЖЕТ СДЕЛАТЬ ЭТО ОЧЕНЬ ВАЖНО ДО 12:00
Автор: horina12
Переведите на алгоритмический язык
Автор: chetverikovalex3738
с д/з по информатике Заранее номера номер 24, 25">
Автор: Zhanibekrva Kandaurova
