Предмет: Информатика,
автор: nimfador13nimfador14
Напишите программу на языке паскаль
По алгоритму
Алг
Нач вещ p,s
P:=2
S:=0
Нц
P:=p*1.5
S:=s+p
Кц при p>5
Вывод S
Кон
Только на стандарте школьной программы.
nimfador13nimfador14:
Тогда формулировка "по Угриновичу" Вас устроит?
Согласен,а мне проще самому написать программу, чем обьяснять то,чему меня учили.
хотя,если честно,то я сегодня ожидал увидеть ответ типа "с какого бодуна я должен писать сам по себе?!",так как очень часто такое встречал на разнообразных форумах))
Не интернет,в обычной жизни.
Ответы
Автор ответа:
9
Program Test;
Var S, P: real;
Begin
P := 2;
S := 0;
Repeat
P := P * 1.5;
S := S + P;
Until (P > 5);
Writeln('S = ', S);
End.
Var S, P: real;
Begin
P := 2;
S := 0;
Repeat
P := P * 1.5;
S := S + P;
Until (P > 5);
Writeln('S = ', S);
End.
Приложения:
А что на изображении?я просто с мобильной версии.
Там сфотонрафирован код и его исполнение
Спасибо!!
На какой программе проверял?
Интересные вопросы
Предмет: Физика,
автор: ldoroga
Предмет: Геометрия,
автор: dxrerr
Предмет: Биология,
автор: liza83838383
Предмет: Математика,
автор: Ленка2003лена