Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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 i,s: integer;
begin
writeln('summa ');
for i: =100 to 999 do
if i mod 17 =0 then s: =s+i else s: =s+0;
writeln(s)
end.
квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата
на qbasic
? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"
input a; b
c=a*2 диаметр
g=sqr(a*a+a*a) диагональ
if c> g then 1 else 2
1 ? "квадрат вписан в круг"
goto 3
2 ? "квадрат не вписан в круг"
3 end
program sss;
uses crt;
var s: string;
i,k,m: integer;
clrscr;
readln(s);
for i: =1 to length(s)-2 do
if ( (s[i] = 'т') or (s[i] = 'т') ) and ( (s[i+1] = 'о') or (s[i+1] = 'о') ) and ( (s[i+2] = 'м') or (s[i+2] = 'м') then
k: =1;
break;
end;
if k = 1 then writeln('да')
else writeln('нет');
readkey;
Популярные вопросы