Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
s : real;
a : array [1..20] of real;
begin
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив а: ');
writeln(a[i]);
s: =0;
if a[i]> 0 then s: =s+a[i];
writeln('сумма положительных элементов =', s);
readln
end.
var
x,y,z: longint;
readln(x,y,z);
if (x> 100)or(y> 100)or(z> 100) then writeln('false')
else writeln('true');
(a*h)+(b*h)+(a*h)+(b***h3)
или
2*(a*h)+2*(b***h3)
если на 1 кв метр 200 грамм то
(2*(a*h)+2*(b***h3))*200= ответ будет в граммах
расход обычно указывается на кв метр : )
1- 2 брата близнеца, один из них возвращается назад
2 - плывет папа, возвращается другой брат
3 - 2 брата близнеца, один из них возвращается назад
4 - мама, возвращается другой брат
5 - оба брата близнеца
Популярные вопросы