Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.04.2015 07:44
- Информатика
- remove_red_eye 1664
- thumb_up 26
Ответы и объяснения 1
Var
a, b: longint;
begin
a := 1;
for b := 1 to 20 do
if (b mod 2 = 1) then
a := a * b;
writeln(a);
end.
--------------------
var
b: integer;
begin
for b := 20 to 50 do
if (b mod 2 = 0) then
writeln(b);
end.
------------------
var
a, b: integer;
begin
a := 1;
for b := 1 to 10 do
a := a * b;
writeln(a);
end.
----------------------
var
a, b: integer;
begin
for b := 2 to 48 do
if (b mod 2 = 0) then
a := a + b;
writeln(a);
end.
------------------------
var
i, k: integer;
begin
readln(i);
k := i div 1000;
i := i mod 1000;
i := ((i + 1000 * (i mod 10)) div 10) * 10 + k;
writeln(i);
end.
--------------------------
Это с первого по... какое-то там:)
- 14.04.2015 03:28
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.