Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
svetlana2017711
28.02.2020 05:19 •
Другие предметы
Расскажите о военном соперничестве СССР и США и его итогах. Для какой из сторон противостояние оказалось большим экономическим бременем? Почему?
Показать ответ
Ответ:
89181790311
02.06.2020 13:58
Var
x,sum: integer;
prod: double;
begin
prod:= 1;
sum:= 0;
x:= 1;
while x<100 do begin
if x mod 3 = 0 then begin
sum:= sum+x;
prod:= prod*x
end;
inc(x)
end;
writeln('Сумма=',sum);
writeln('Произведение=',prod)
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
ромочка6532
16.11.2022 21:38
Чим живляться бактерії?...
anastasiyapauk
28.06.2020 00:27
Сторонники норманнской теории утверждают, что варяги сыграли решающую роль в создании древнерусской государственности. Приведите три аргумента в доказательство этой...
ХУХ00001
10.01.2020 02:09
Ть будьласка визначити тему й основну думку вірша моє серце в верховині...
sofirzhk
31.03.2020 06:57
Хто провів найбільшу кількість матчів за збірну України? ПятовШовковськийТимощукШевченко...
hchv
18.06.2022 17:16
Первичные источники энергии, которые находятся в окружающей природе, называют...
Lbailieva
30.05.2021 08:52
Дано:R₁ = 4 OMR2=40мXLI = 3 OMXL2=3 OMS = 360 B.A...
прапрр
13.09.2022 01:18
это соч ответьте верно ...
mishac1470
23.03.2021 13:20
Дастанның таякшаны түсіріп алма деуінің сыры неде деп ойлайсың?...
kotik12345566
28.07.2020 05:27
Как вы пользовались культурным наследием Санкт-Петербурга в течение года?...
vbbbbb
21.08.2021 13:59
1. Слагаемые здорового образа жизни: А) рациональное питание, успешная учеба, двигательная активность Б) режим дня, двигательная активность, развитие творческих В)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x,sum: integer;
prod: double;
begin
prod:= 1;
sum:= 0;
x:= 1;
while x<100 do begin
if x mod 3 = 0 then begin
sum:= sum+x;
prod:= prod*x
end;
inc(x)
end;
writeln('Сумма=',sum);
writeln('Произведение=',prod)
end.