Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program pyat;
var a, b, c, d ,f, p : integer;
begin
writeln ('vvedite dlini storon pyatiugolnika');
readln (a);
readln (b);
readln (c);
readln (d);
readln (f);
p: = a+b+c+d+f;
writeln ('perimetr raven', p);
readln;
end.
4 клетки вниз и 7 вправо
var
x,y: real;
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
1)
var a,b,c,d: real;
read(a,b);
c: =(a+b)/2;
d: =2*a*b;
if a> b then begin
a: =d;
b: =c;
if a< b then begin
a: =c;
b: =d;
writeln(a,' ',b);
2)
var a,b: integer;
if (a< 1) or (a> 31) then writeln(' день введен неправильно');
if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');
3)
var a,b,c: real;
read(a,b,c);
if (a> b)and(a> c)then writeln(a);
if (b> a)and(b> c)then writeln(b);
if (c> b)and(c> a)then writeln(c);
Популярные вопросы