1)
var x, y, z, P, S: integer;
begin
readln(x, y, z);
P := x * y * z;
S := x + y + z;
writeln(P);
writeln(S);
end.
2)
var a, b: integer; k: real;
begin
readln(a, b);
K := sqrt(sqr(a)+sqr(b))+((a+b)/2);
writeln(K);
end.
<em>
</em><em />В приведенной последовательности ошибка, там не 18, а 17.
<em>
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,c,d:integer;
(a,b,c):=(1,1,1);
Print(a,b,c);
for var i:=1 to 20 do begin
d:=a+b+c; Print(d);
(a,b,c):=(b,c,d)
end;
Writeln
end.
<u>Результат</u>1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329
Ответ:
это информация, которая может быть тебе полезной, Например: человек рассказал тебе что и как нужно делать при пожаре, (при случае пожара тебя эта информация может спасти)
То есть такой рассказ или объяснение которое тебе нужно и нужно всем людям.
Объяснение:
Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.
Сумма двух элементов a[1] и a[4] для данного массива равна 22