tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу, которая
Составьте программу, которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4+ чтобы сумма оказалась больше заданного числа n
CrySony1
3 08.09.2019 04:50
0
Ответы
геля217
07.10.2020 00:23
Var n, s, k: integer;
begin
readln(n);
s:=0; k:=0;
while s<n do
begin
k:=k+1;
s:=s+k;
end;
writeln('k = ',k);
end.
Пример:
60
k = 11
ПОКАЗАТЬ ОТВЕТЫ
secret213p089no
07.10.2020 00:23
Var i,s,n: Integer;
begin
readln(n);
for i := 1 to 10000 do begin
s := s + i;
if s > n then
begin
writeln(s);
halt;
end;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
умный2006
15.04.2020 08:00
Ақпаратты қағазға басып шығаруға арналған құрылғы қалай аталады?...
anna18341
18.12.2019 11:30
1. основная информационная магистраль компьютера включает в себя проводники образующие один или несколько ответов: -шину адреса -шину -шину сенсоров -шину данных -шину расположения...
nikitta76
18.12.2019 11:31
Составить программу вычисления значения выражения p=5/(3*n)...
робот66
18.12.2019 09:36
1. созданный на компьютере текст занимает 10 страниц. накаждой странице размещаются 30 строк по 50 символов встроке. какой объем памяти в кб займет этот текст? ...
ЕваКротевич
05.07.2019 03:50
Устройста для вывода звуковой информации...
54женек4
05.07.2019 03:50
Алгоритм просмотра содержимого папки...
Elnur19982
05.07.2019 03:50
Логічна з інформатики,2 клас..карлсон і малюк подарували фрекен бок 22 диски з комп*ютерними іграми.карлсон подарував стільки ж дисків ,скільки й малюк,та ще 10 дисків.скільки дисків...
Ivanøva34
04.07.2019 13:20
11 ! на сковородке помещаются 9 сырников. на обжарку одной стороны сырника уходит одна минута. за какое наименьшее время можно 10 сырников? (временем на переворачивание и убирание/выкладывание...
AlexandroGuerin
04.07.2019 13:20
Сколько цветов можно кодировать с 6 битов на пиксель?...
gejdanp0dmbe
28.06.2019 03:40
Вводиться три целых числа, определить сколько кратных 3 в паскале...
Популярные вопросы
До ть:з У якій частині материка розташована Південноафриканська Республіка відносно...
3
Выразите log4 135 через a и b a= log3 4 b=log5 4...
2
Залетайте в клуб, ветеран самым активным (если надо вход понижу)...
2
Перечислите с чего можно передать информацию...
1
Фосфорная кислота взаимодействует с веществом формула которого1)P•20•22)Ca(OH)•23)HNO•34)Ag(Там...
1
Решите зададу. Определите атмосферное давление на вершине горы, если высота горы...
1
Тест по литературе 1. В каком рассказе герой Семка Рысь загорелся мечтой отремонтировать...
2
записать смешанную дробь в виде неправильной 3 целых 3/4? 1) 7/4 2) 4 целое 4/3...
3
Решите это задачу на рисунке.Заранее...
2
Как возникло раннее римское государство? Что римлянам завоевать соседние племена...
1
begin
readln(n);
s:=0; k:=0;
while s<n do
begin
k:=k+1;
s:=s+k;
end;
writeln('k = ',k);
end.
Пример:
60
k = 11
begin
readln(n);
for i := 1 to 10000 do begin
s := s + i;
if s > n then
begin
writeln(s);
halt;
end;
end;
end.