В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
доминион11
доминион11
21.03.2022 01:41 •  Информатика

Составте программу для нахождение среднего арифметического чисел до 20 кратных 3 ввести a и b и вывести квадраты и кубы чисел от a до b

Показать ответ
Ответ:
Nadezhdakarpov1
Nadezhdakarpov1
20.07.2020 21:18
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := SeqWhile(1, i -> i + 1, i -> i < 20);
    Println(a);
    Println(a.Where(x -> x mod 3 = 0).Average);
    Writeln();
    
    for var i := ReadInteger('a =') to ReadInteger('b =') do
        writeln(i, ' ', i * i, ' ', i * i * i);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота