Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program pr;
var i: integer;
mas: array[1..7]of integer;
begin
for i: =1 to 7 do
writeln ('введите температуру ', i ,' сентября');
readln (mas[i]);
end;
for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
readln;
end.
а)
var
p,d,h: real;
readln(h);
p: =1200*9.8*h;
writeln(p);
б)
m,h,r: real;
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
i,k: integer;
m,h,r,s: real;
readln(k);
s: =0;
for i: =1 to k do
s: =s+m;
writeln(s);
не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)
var a: integer;
begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.
Популярные вопросы