99 баллов за одну задачу в паскале( на один из трех циклов)

Kurukusiki, 229 просмотров

-5

Мой bogатый дядюшка podaril мне S0 $ в мой первый denь рожdeния t0. В каждый следующий dень рождения он ydваивал свои подарок и пpибaвлял к nему столько $, сколько лет мне испoлнилoсь. Составьте programmy вывода на экран таблицы symmы и к какому дню рождения oнa preвысит S1$, при условии, что изначально S0<S1. predусмотрите отказ дядюшки от подarka.

Примечание:
Мне нужна задача в паскале...
то есть
program название
begin.. и т.д

Примечание:
vir2alex, это максимум баллов.

Ответы:

vir2alex

Мало.

G-STALKER

А я могу дать 99 баллов просто так. Ведь это не $

Beast Winterwolf

Если богатый дядюшка подарил на день рождения 0$ и пообещал дарить каждый год на 1 больше, значит через год подарит 1$.

_lex_

Клавиатуру почини

WinIce

Я тебе алгоритм набросаю, а на паскаль - сам переводи. Когда же тяга к познанию появится??
Начало:
Ввод S0,t0,S1
начало цикла пока
подарок = S0*2+t0
S0=подарок
Вывод запроса у дядюшки "Дядюшка, у тебя хватит денег на подарок в"+S0+"$?" если не хватает то выход из цикла
цикл пока S0<S1
Вывод "Последний подарок дядющки составил:"+S0+"$"

Александр Ёлгин

Вот программа
program money;
Uses Crt;
var
s0:integer;
s1:integer;
t0:integer;
begin
writeln ('Vvedite summu podarka:');
s0:=100;
writeln ('Vvedite vozrast:');
t0:=10;
writeln ('Vvedite max summu podarka:');
s1:=1000;
writeln ('Vozrast Summa podarka');
writeln (' ',t0, ' ',s0);
while s0<s1 do
begin
t0:=t0+1;
s0:=s0*2+t0;
writeln (' ',t0, ' ',s0);
end;
writeln ('Dedushka otkazalsya ot podarka v',t0, ' let.');
end.

Без имени

program Podarok;
var
s0, s1, y: Integer;
begin
s0 := 0;
Write('s0 = '); ReadLn(s0);
Write('s1 = '); ReadLn(s1);
while s0 < s1 do
begin
Inc(y);
s0 := s0 * 2 + y;
end;
WriteLn('Sum = ', s0);
WriteLn('Years = ', y);
ReadLn;
end.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.