5) Стоял красивый букет.
Принесли интересную книгу. Получали отличные знания
CLS
INPUT
"a="; a
INPUT
"b="; b
S = (a +
b) / 2
G =
SQR(a ^ 2 + b ^ 2)
PRINT
"S="; S
<span>PRINT "G="; G
</span>
Один ученик собрал за один час работы М корзину лимонов
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln(ReadlnString('Введите исходное число:')*2)
end.
<u><em>Тестовое решение</em></u>
Введите исходное число: 210345
210345210345
Текстовое сообщение расчитывается по ф-е:
А=S*i
i - кол-во бит на 1 символ (для русского яз. около 5)
S=Кстраниц*Кстрок на стр-це*Ксимволов на стр