Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.
обьем вини изначальный
прирост от меда
прирост от сгущенки
время реализации прироста
время худенья
радиус дверей
var a: array [1..16] of integer;
i,s,c,d: integer;
randomize;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
end;
writeln(s);
Популярные вопросы