Вопрос по информатике:
Сделать на паскале.Переделать задачу на постусловие.
program Zadacha_6;
var x,y:real;
begin
x:=2;
y:=2;
while x<=42 do
while y<=40 do
begin
y:=y+2/sqrt(x);
x:=x+2;
end;
writeln(y);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.01.2016 09:55
- Информатика
- remove_red_eye 14084
- thumb_up 24
Ответы и объяснения 1
var
x,y:real;
begin
x:=2;
y:=2;
repeat
repeat
y:=y+2/sqrt(x);
x:=x+2
until y>40
until x>42;
writeln(y)
end.
- 28.01.2016 07:59
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.