Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
3+3-3: 3=5
3-3+3+3=6
3: 3+3+3=7
3*3-3: 3=8
3*3*3: 3=9
3* 3+3: 3 = 10
var
n,a: integer;
begin
readln(n);
a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;
if n> a then
writeln('число ', n, ' больше перевертыша ', a)
else
writeln('перевертыш ', a, ' больше числа ', n);
end.
n=2^b, где b=7 (по условию )
Популярные вопросы