Напишите программу на языке паскаль По алгоритму Алг Нач вещ p,s P:=2 S:=0 Нц P:=p*1.5 S:=s+p Кц при p>5 Вывод S Кон Только на стандарте школьной программы.
Тогда формулировка "по Угриновичу" Вас устроит?
Согласен,а мне проще самому написать программу, чем обьяснять то,чему меня учили.
хотя,если честно,то я сегодня ожидал увидеть ответ типа "с какого бодуна я должен писать сам по себе?!",так как очень часто такое встречал на разнообразных форумах))
Не интернет,в обычной жизни.
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.
А что на изображении?я просто с мобильной версии.
Там сфотонрафирован код и его исполнение
Спасибо!!
На какой программе проверял?