Вопрос по информатике:
Помогите решить информатику, и если не сложно объясните, как решать, спасибо
Var s, k:integer;
begin
s:=0
for k:=1 to 8 do
s:=s+k;
writeln(s)
end.
Var s, k: integer;
begin
s:=20; k:=0;
while s <60 do
begin
s:=s+4; k:=k+1
end;
writeln(k)
end.
Var s, k: integer;
begin
s:=100
k:=8;
repeat
s:=s-k;
k:=k-1;
until k<0;
writeln(s)
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.11.2016 03:07
- Информатика
- remove_red_eye 7904
- thumb_up 17
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.