Дам 70 баллов!!! Надобно написать программку на языке Паскаль, которая
Дам 70 баллов!!!
Надобно написать программку на языке Паскаль, которая вычисляет сумму:
а) Первых n естественных чисел;
б) Квадратов первых n естественных чисел;
в) Всех чётных чисел в спектре от 1 до n;
г) Всех двузначных чисел.
Всё это надобно написать одной программкой через оператора repeat. НЕ С Веба!!!
program raf105;
var
n,i,a,b,c,d,sqrt: integer;
begin
write('Введите n: ');
readln(n);
repeat
i:= i+1;
a:= a+i;
sqrt:= i*i;
b:= b+sqrt;
if i mod 2 = 0
then c:= c+i;
if (i gt;= 10) and (i lt;= 99)
then d:= d+i;
until i = n;
writeln('а) ',a);
writeln('б) ',b);
writeln('в) ',c);
writeln('г) ',d);
end.
PascalABC 3.4.2
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.