Пройдёмся по алгоритму по-порядку:
1)x=3, y=12
2)y=18
3)y=54
4)y=61
5)y=183
6)y=191
Ответ: 191
Ответ:
1)
Begin
Read(a);
S:=a mod 10+a div 10;
Writeln(s);
Writeln(a-s);
End.
2)
function Prost(a:longint):boolean;
var i:longint;
f:boolean;
begin
if a<2 then f:=false{первое простое=2}
else
begin
f:=true;{считаем что простое}
i:=2;
while (i*i<=a) and f do{пока счетчик меньше корня из числа и нет делителей}
if a mod i=0 then f:=false{если делитель, не постое}
else i:=i+1;{иначе дальше}
end;
Prost:=f;{результат true или false}
end;
Begin
Read(a,b);
For i:=a to b do
If Prost(i) then
Writeln(i);
End.
3)
Begin
Sum:=0;
For i:=1 to n do
If a[n] mod 3 = 0 then
Sum:=sum + a[n];
End.
program fantscrin;
var x,f:real;
begin
write('X = '); readln(x);
if (x<-2) then f:=-2;
if ((x<2)and(x>-2)) then f:=x*x*x;
if (x>2) then f:=x+2;
writeln(f);
end.
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>