Напишите программку на языке паскальПо алгоритмуАлгНач вещ

Напишите программку на языке паскаль
По методу

Алг
Нач вещ p,s
P:=2
S:=0
Нц
P:=p*1.5
S:=s+p
Кц при pgt;5
Вывод S
Кон

Только на эталоне школьной программки.

Задать свой вопрос
Igor Trepakov
Тогда формулировка "по Угриновичу" Вас устроит?
Julija Kondricheva
Согласен,а мне проще самому написать программку, чем обьяснять то,чему меня учили.
Виктор Клейнот
желая,если правдиво,то я сейчас ожидал узреть ответ типа "с какого бодуна я обязан писать сам по для себя?!",так как очень нередко такое встречал на разнообразных форумах))
Валерий Камолин
Не веб,в обыкновенной жизни.
1 ответ
Program Test;

Var S, P: real;

Begin

P := 2;
S := 0;

Repeat
P := P * 1.5;
S := S + P;

Until (P gt; 5);

Writeln('S = ', S);

End.
Лидия Отрокова
А что на изображении?я просто с мобильной версии.
Боря Ельшин
Там сфотонрафирован код и его выполнение
Ромик Шокарев
Спасибо!!
Вероника Стецькив
На какой программе инспектировал?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт