М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
t9003451896Temach
t9003451896Temach
02.08.2020 18:10 •  Информатика

Решите 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.

👇
Ответ:
tayatoadvel
tayatoadvel
02.08.2020
1. ответ: 121
2. ответ: 41
3. ответ: 60
4.ответ: 64
5.ответ: 25
6.ответ: 31
4,7(57 оценок)
Открыть все ответы
Ответ:
GeBorgge
GeBorgge
02.08.2020

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) выводит значение переменой;

 

 

 

4,7(24 оценок)
Ответ:
Murmurvk
Murmurvk
02.08.2020

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) выводит значение переменой;

 

 

 

4,7(29 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ