1. Информатика
  2. Программа выполняется в паскале!

Программа выполняется в паскале! составьте программу для решения следующей : дядюшка подарил своему племяннику на первый день рождения 1 доллар. в каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет исполнилось его племяннику. определите, к какому дню рождения сумма превысит 100 долларов? .

КамиляУшурова КамиляУшурова    3   02.06.2019 15:10    0

Ответы
nastasyasaenko nastasyasaenko  03.07.2020 10:29
Var money,n,count:integer;
 begin
money:=1;
n:=0;
while money < 100 do 
begin
money:= money*2+n;
n:=n+1;
count:=count+1;
end;
writeln(count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
natashaleskovets natashaleskovets  11.03.2021 08:20
Орындау нәтижесінде экранда не пайда болады? a=14b=-2c=10d=(a+b)*cprint(d)16026120-280​...
njjk1 njjk1  11.03.2021 08:16
A Обзор урокаТЕКСТ ЗАДАНИЯдержание урокаУстанови соответствие между блоками программного кода и названиями датчиковКоличество связей: 4дание No1дание No2d/sДатчик касаниядание...
Elnur19982 Elnur19982  05.07.2019 03:50
Логічна з інформатики,2 клас..карлсон і малюк подарували фрекен бок 22 диски з комп*ютерними іграми.карлсон подарував стільки ж дисків ,скільки й малюк,та ще 10 дисків.скільки...
alfa2009 alfa2009  11.02.2021 21:51
Какое число нужно записать вместо многоточия, чтобы в результате работы фрагмента программы были напечатаны ровно три звездочки? x:=...; while x = 9 do begin writeln(...
vddrobysheva vddrobysheva  11.02.2021 21:51
Встречено := а ожидался оператор , в 10 строке Var a,b,h,e: real;I,k: integer; f,x: array [1..6] of real; Function f1 (t :real) : real; Begin f1 :=7230.122-925.124*t+0.96*t*t...
долма1 долма1  11.02.2021 21:52
Написать программу в паскале: в последовательности целых чисел найти произведение нечётных​...
LEXUS2705 LEXUS2705  15.02.2020 21:52
Даны 3 целых числа A,B,C, которые пользователь вводит с клавиатуры программа должна вывести на экран данные числа в порядке возрастания, если хоть 2 числа между собой...
smellofcherry smellofcherry  15.02.2020 21:53
Какие действия выполняет это в компьютерах?...
marystuart21 marystuart21  15.02.2020 20:03
Написать программу вычисляющую функцию: y= ( x в 5 - корень x и - 35):2 где x- вводиться с клавиатуры. Программа паскаль поспешите и заранее за...
kupecki kupecki  25.06.2019 12:20
Мастера диаграмм (тип диаграмм- точечная ) постройте графики следующих функций. y = 2x в квадрате +5x-10 для значений аргумента изменяющихся от -5 до 2,5 с шагом 0,5...

Популярные вопросы