#include <iostream>
int main() {
for (int i = 20; i <= 35; i++)
std::cout << i << std::endl;
return 0;
}
Const
n=10;
var
i,j,m,x:integer;
s,p:real;
begin
readln(x);
readln(m);
p:=1;
for j:=1 to m do
begin
for i:=1 to n do
s:=s+cos(x)/sin(x);
p:=p*s;
end;
writeln(p:4:2);
end.
A=1; b=2
1+2<8 ⇒ истина;
1 шаг цикла.
a=a+1=1+1=2; b=b+2=2+2=4
2+4<8 ⇒ истина;
2 шаг цикла.
a=2+1=3; b=4+2=6
3+6<8 ⇒ ложь
s=3+6=9
Ответ: цикл выполнится 2 раза, переменные: a=3; b=6, s=9
<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var s:=Range(10,99).Where(x->(Power(x div 10,3)+Power(x mod 10,3)=n));
if s.Count>0 then s.Println
else Writeln('Нет таких чисел')
end.
<u>Пример</u>
n= 9
12 21
Var
x:real;
Begin
x:=-5;
repeat
writeln('y = ',sqr(x));
x:=x+0.5;
until(x>5)
End.