1-2
------------------------------------
86 клавиш, ну т.е. 1 ответ
Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.
1) Дискет;
2) Флеш - карта;
3) USB - флеш - накопитель;
4) CD - RW.
Ответ: 1); 2); 3); 4).
Ответ:
Для задач с условием. Проверяется истинность данного условия.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
if a*b*c<>0 then Writeln((a+b+c)/3)
end.
<u>Пример</u>
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333