Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln(' ',m: 2: 2,' кг'); readln; end.
логика, морзе, вектор, шина, дек, рунет, железо, терно, юзер, каретка, адаптер, браузер, цифра, образ, плата, эталон, сектор(стокер), зерно, утилита, файл, гамма, щелчок, чистка, иконка, ядро, ершов, хаб, набор
var a,p: real;
i,n: integer;
begin
read(a,n);
p: =1;
for i: = 0 to n-1 do
p: =p*(a+i);
writeln(p);
end.
var a: array[1..n] of integer;
readln(n);
for i: =1 to n do readln(a[i]);
for i: =1 to n do
if (i mod 2=0) then
for i: =1 to n do writeln(a[i]);
Популярные вопросы