Question

SOS, даю 75 баллов!!!


1.С клавиатуры вводится натуральное чётное число M. Напиши программу, которая выводит на экран чётные числа от М до 2 в одну строку через пробел.


2.С клавиатуры вводятся натуральные числа А и В (A < B). Напиши программу, которая выводит на экран кубы чисел от А до В в одну строку через пробел.


3.С клавиатуры вводится целое положительное (может быть равно 0) число А, не превышающее 30 000. Напиши программу, которая считает и выводит на экран сумму цифр числа А.

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var M := ReadInteger('M =');

 Range(M, 2, -2).Println;

 // 2

 var (A, B) := ReadInteger2('Введи A и B:');

 Range(A, B).Select(p -> p * p * p).Println;

 // 3

 var AA := ReadInteger('А =');

 var s := 0;

 while AA > 0 do

 begin

   s += AA mod 10;

   AA := AA div 10

 end;

 Println('Сумма цифр числа А равна', s)

end.