Предмет: Информатика,
автор: Pro100yVovka
Составте программу для задачи Нахождение среднего арифметического чисел до 20 кратных 3 Ввести a и b и вывести квадраты и кубы чисел от a до b
Ответы
Автор ответа:
0
//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.
//Если программа не запускается, то обновите версию
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.
Похожие вопросы
Предмет: Физика,
автор: dianabudylina
Предмет: Русский язык,
автор: панда20171
Предмет: Литература,
автор: Tarasoff01
Предмет: История,
автор: anyta4698
Предмет: Математика,
автор: Аноним