1) какие операторы используются для организации циклов? a) while условие until ; b) repeat until условие; c) while условие do ; d) repeat do условие. 2) какое значение имеет счетчик цикла после завершения выполнения цикла? a) равное тому значению, для которого в последний раз выполнялось тело цикла b) на 1 больше последнего значения, для которого тело цикла еще выполнялось c) равное 0 d) не определено 3) напишите, что будет выведено на экран в ходе выполнения фрагмента программы: a) y : = 0; for x : = 1 to 9 do y : = y + x; writeln (y); b) y : = 0; for x : = 1 to 5 do y : = y * x; writeln (y);

1) b, с
2) а
3) а) 45 b) 0

#include <iostream>

void main()

{

int x;

std::cin>>x;

int sum = 0;

int prod = 1;

while(x>0)

{

 int y = x%10;

 sum = sum + y;

 prod = prod * y;

 x=x/10;

}

if(sum%10 == 0 && prod < 100)

 std::cou<<"Yes"<<endl;

else:

 std::cout<<"No"<<endl;

}

Pascal

var n,digit,sum,prod:integer;

begin

 readln(n);

sum = 0;

prod = 1;

 while (n>0) do

 begin

  digit:=n mod 10;

  sum = sum+digit;

  prod = prod * digit;

  n:=n div 10;

 end;

if(sum mod 10=0)and(prod<100)

begin

writeln("да");

end

else

begin

writeln("Нет"):

end;

Как то так

end.

1) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-(sqr(x)*x/3)+(sqr(x)*sqr(x)*x)/5;

writeln('y = ',y);

end.

2) var y,x,z:real;

begin

writeln('Введите значение x: ');

readln(x);

writeln('Введите значение y: ');

readln(y);

z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);

writeln('z = ',z);

end.

3) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);

writeln('y = ',y);

end.

4) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);

writeln('y = ',y);

end.