Ответ: алгоритм - 12121(но это для нахождения числа 30, потому что число 60 получить невозможно
Var x,y:integer;
begin
readln (x);
y:=2*Power(x,2) +3;
writeln (y);
end.
R^2
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) <span>then </span>
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');<span>
End.</span>
COUNTRY:
USA : RUSSIA:
INFO : ;washington.txt INFO:
culture.txt industry.txt ; culture.txt
Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.