Регистрация
DarvinaDark
11.11.2021 08:45
Информатика
Есть ответ 👍

Uses crt; var s: real; n: integer; begin clrscr; write('collichestvo korney: '); readln(n); s: =sqrt(2)*n; write('s=',s: 0: 4); readkey; end.

230
339
Посмотреть ответы 3

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

LikiMikhoelis
LikiMikhoelis
4,7(47 оценок)

все

Goodsteve31
Goodsteve31
4,5(60 оценок)

uses crt, math

seny0600
seny0600
4,5(15 оценок)
1)program n_1; var x,y,z,c: integer; begin readln (x,y,z); c: =x; if c> y then c: =y; if c> z then c: =z; writeln (c); end. 2)program n_2; var x,y,z: integer; q,w,e: boolean; begin readln (x,y,z); q: = (y> x) and (z> x); w: = (y< x) and (y< z); e: = (z< y) and (z< x); if e=true then writeln (z); if w=true then writeln (y); if q=true then writeln (x); end. 3)program n_3; var x,y,z: integer; begin readln (x,y,z); if (x< y) and (x< z) then writeln (x); if (y< x) and (y< z) then writeln (y); if (z< y) and (z< x) then writeln (z); end.

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