Решите 40 1. определите, что будет напечатано в результате работы следующей программы. var s, k: integer; begin s : = 0; for k : = 2 to 12 do s : = s + 11; writeln (s); end. 2. определите, что будет напечатано в результате работы следующей программы. var u, i: integer; begin u : = 26; for i : = 1 to 5 do u : = u – i; writeln(u); end. 3.. определите, что будет напечатано в результате работы следующей программы. var s, k: integer; begin s : = 0 ; for k: = 4 to 11 do s : = s + k ; writeln (s); end. 4. определите, что будет напечатано в результате работы следующей программы. var s, n: integer; begin s : = 1; for n : = 3 to 8 do s : = s * 2; write(s); end. 5. определите, что будет напечатано в результате работы следующей программы. var у, і: integer; begin у : = 0; for і : = 1 to 3 do у : = у + 4*і; writeln(у); end. 6. определите, что будет напечатано в результате работы следующей программы. var s, і: integer; begin s : = 3; for і : = 2 to 5 do s : = s + 2* і; writeln (s) ; end.

1. ответ: 121
2. ответ: 41
3. ответ: 60
4.ответ: 64
5.ответ: 25
6.ответ: 31

var a,b,c,s:integer;

begin

read(a);

read(b);

read(c);

s:=(a+b+c) mod 3       mod вробная часть от деления

end;

 

var post,Bes:real;

begin

read(post);

Bes:=post-100;    (кг)=(рост(см) - 100

end;

 

 

 

var m,n,k:integer;

begin

read(m);

read(n);

read(k);

o:=m*2+n*0+k*1

end;

 

 

 

 

var x:integer;

begin

read(x);

if x mod 2 =0 then write('чот') else write('нечет');

end;

 

 

 

var x:integer;

begin

read(x);

if x mod 10=7 then write('на конце 7') else write('не 7');

end;

 

 

 

///write(x) выводит значение переменой;

 

 

 

var a,b,c,s:integer;

begin

read(a);

read(b);

read(c);

s:=(a+b+c) mod 3       mod вробная часть от деления

end;

 

var post,Bes:real;

begin

read(post);

Bes:=post-100;    (кг)=(рост(см) - 100

end;

 

 

 

var m,n,k:integer;

begin

read(m);

read(n);

read(k);

o:=m*2+n*0+k*1

end;

 

 

 

 

var x:integer;

begin

read(x);

if x mod 2 =0 then write('чот') else write('нечет');

end;

 

 

 

var x:integer;

begin

read(x);

if x mod 10=7 then write('на конце 7') else write('не 7');

end;

 

 

 

///write(x) выводит значение переменой;