tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму всех чисел ,кратных
Найти сумму всех чисел ,кратных 6 и произведение остальных чисел на промежутке от 34 до100
TMTkid
3 26.06.2019 10:20
1
Ответы
dashakasha1995
21.07.2020 09:28
Var
i, s: integer;
p: real;
begin
s := 0;
p := 1;
for i := 34 to 100 do
if i mod 6 = 0 then
s := s + i
else p := p * i;
writeln('Сумма чисел кратных 6:', s);
writeln('Произведение чисел не кратных 6:', p)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
goooll
10.09.2019 16:30
Решите по информатике или хотя бы дайте подсказку как решить укажите количество наборов исходных данных, при подстановке которых в данное логическое выражение получается значение...
1970даша
10.09.2019 16:30
Какие элементы могут содержаться в диалоговых окнах и каково их назначение?...
SHiiimochka
09.09.2019 22:40
Какие из перечисленных операционных систем относятся к открытому программному обеспечению (open source software)? gnu/linux debian microsoft windows vista apple mac os x freebsd...
aiiiotbahiiiot
01.03.2021 11:31
1. Вычисли и определи тип ( )1) print (round (15.75 - 11.706))4) print(16.81/3)% 4))2) print(int(45.29+35.215))5) print((36.5/8)% 2))3) print(49/14)6) 7*7//10%3...
ZLATA0061
01.03.2021 11:31
Соотнеси примеры технических достижений человечества в области робототехники со сроками их появленияДжорж Девол изобрел робот-манипулятор весом две тонны1770 r.с программным...
aaaaanastya92
01.03.2021 11:30
1.Выполните команду Создать меню Файл 2. С инструментов Кисть и Распылитель нарисуй дерево .Оно может быть таким ,как нк рисунке 3.Сохраните рисунок под именем Дерево в личной...
Angelm00n
01.03.2021 11:30
2. Дан код задачи: N = 8P = int (input())K = (N+ P)D = (N+ P)/ 2print (K, D)Напиши отличие ввода переменной N от ввода переменной P ( )В) Напиши результат действия программы...
alinaastana2015
01.03.2021 11:29
1. Работодателю нужно сообщить работнику о том, что если план будет выполнен на 110%, то его премиальные составят 10000тг, а при перевыполнении плана на 120% премиальных будет...
2839275
07.10.2019 11:20
Найти произведение цифр заданного 4-х значного числа...
nakiba321
26.06.2019 10:20
Составить программу в pascal 1)в строке , введенной с клавиатуры , все буквы и заменить на % 2)из строки, введенной с клавиатуры , удалить все символы ,начиная с середины....
Популярные вопросы
Замените некоторые слова противоположными по смыслу (или просто другим,...
1
Разобрать слово нежное как часть речи...
1
Составьте уравнения реакций сахарозы с водой; гидроксидом кальция; кислородом...
1
1)томатный соус=выросли цены на помидоры= 2)бифштекс=государство ввело подушный...
1
Спишите раскрывая скобки( у) меня есть младший брат я (с) ним играю (в)...
3
Укажите систематическое положение сверчка домового. заишите в таблицу номера,...
2
Уимен существительных указать род число склонение падеж. чайки били озябшими...
3
Найдите частное от деления суммы чисел 480 и 240 на их разность...
2
Pascal программа случайным образом генерирует однозначные числа (все числа...
1
Окружающий мир. 2 класс. кактусы пустыни. доклад....
3
i, s: integer;
p: real;
begin
s := 0;
p := 1;
for i := 34 to 100 do
if i mod 6 = 0 then
s := s + i
else p := p * i;
writeln('Сумма чисел кратных 6:', s);
writeln('Произведение чисел не кратных 6:', p)
end.