Есть ответ 👍

Даны два числа a, b. найдите число, большее их среднего арифметического. составьте блок – схему и в паскаль

256
373
Посмотреть ответы 2

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


Var a,b,c: integer; begin readln(a,b); c: = (a+b)/2; writeln(c); end.

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! procedure a4(a: real; var r: real); begin   r: =a*a;   r: =r*r end; begin   var a: =readreal('a=');   var res: real;   a4(a,res);   writeln(a,'^4=',res) end. пример a= 3.14 3.14^4=97.21171216

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