Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program z1;
var x,y: real;
begin
writeln('vvedite x i y');
readln(x,y);
if y=5*x*x-7*x+2 then
writeln('yes');
else
writeln('no');
end;
program xxx;
var a,s : string;
i: integer;
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
program xxx; var a,b, c : integer; begin
writeln('введите 3 числа-');
read(a,b,c); if a> =0 then a: = sqr(a);
if b> =0 then b: = sqr(b);
if c> =0 then c: = sqr(c);
writeln('ответ: ');
write(a, b, c);
readlnend.
триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.
Популярные вопросы