tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Пож 1 составить программу,
Пож 1 составить программу, которая бы запрашивала хнач , хкон , шаг c и определяла сумму всех отрицательных чисел от хнач до хкон с шагом с (решить , используя цикл с предусло-вием – while .. do).
ilyavladimirov1
1 31.07.2019 18:10
2
Ответы
fcnhff7
28.09.2020 19:16
Var
x0, x1, c, sum: integer;
begin
sum:=0;
readln(x0, x1, c);
while x0<=x1 do
begin
sum:=sum+x0;
x0:=x0+c;
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Sapff1ra
30.04.2020 12:08
Продумайте состав, типы полей и ключ однотабличной базы данных (на выбор): а) ТУРАГЕНТСТВО; б) ВИДЕОТЕКА; в) АВТОСАЛОН; г) РЕГИОНЫ РФ. Запишите в тетради и вышлите фото....
moiseenkoevgeni
30.04.2020 12:08
3. Примером текстовой информации может служить: 1)таблица умножения на обложке школьной тетради; 2)иллюстрация в книге; 3)правило в учебнике родного языка; 4)фотография; ...
keklolcheburek1243
20.09.2019 19:20
Для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также...
hellllo
20.09.2019 19:20
Проверить 3-ех значеное на честность и на сумму его цифр,если четн, если нет то произведение его цифр...
Myzhik123456
20.09.2019 19:20
Ввести с клавиатуры двузначное число определить делится ли оно на сумму своих цифр pascalabc 30...
яждупомощи
20.09.2019 19:20
Определить кратно ли заданное число 3 если нет вывести остаток...
мууур1
04.03.2021 06:48
Какой специальный пакет используется для создания программ, поддерживающих графический интерфейс на языке программирования Python? A)TkinterB)ButtonC)Label...
melochek228
23.12.2020 21:05
Задача 6 Найди количество информации во фразеПриехав в Ямало-Ненецкий округ, исследователь увидел фразуна ненецком языке:Нэрм” тер”Сколько информации в этой фразе, если современный...
laaaaal228
23.12.2020 21:04
Завтра утром задать надо ...
GEgor004
23.12.2020 21:03
Сұрақ - жауап SketchUp редакторы қандай құралдардан тұрады ? Стандартты құралдарды толықтыру үшін қандай командаларды орындау қажет ? X , Y және Z осьтері программада не үшін түрлі...
Популярные вопросы
Как защищаются чувствительные электрические приборы от электрических полей, почему?...
1
Наблюдатель сидит на берегу моря и следит за распространением волн на поверхности...
3
На первой фере 112коров, а на второй -102 коровы. при одинаковой норме расхода сена...
1
А) сумму 50 десятков и 5 единиц уменьши в 5 раз. б) число, состоящее из 27 десятков,...
2
Как писать в последнем предложении? хорошо,украшенные,слышать,уши,рысьи,кисточками...
3
Подскажите транскрипцию текста i ve got a bicycle. my dad s got a van. my brother...
3
Напишите 10 художественных предложений с орфограммой и-ы после !...
2
Решите уравнения a) 2000-х/8=132; 2000-у/2=132; 2000-d/4=132 б) х-420*13=800; у-420*14=800;...
1
Чему равно значение выражения(156,6: 18-8,6)×100: 0,1-99)...
3
Изобразите картину силовых линий двух заряженных пластин...
1
x0, x1, c, sum: integer;
begin
sum:=0;
readln(x0, x1, c);
while x0<=x1 do
begin
sum:=sum+x0;
x0:=x0+c;
end;
writeln(sum);
end.