4 года назад

Напишите программу на Паскале. Дано натуральное число N. Найти сумму квадратов всех натуральных чисел от 1 до N.

2 ответа:

0 0

<em>VAR</em>
<em>    n, sum, i : LongInt;</em>
<em>BEGIN</em>
<em>    Read(n);</em>
<em />
<em>    For i := 1 to n do</em>
<em>       sum := sum + Sqr(i);</em>
<em />
<em>    Write(sum);</em>
<em>END.</em>

tola [20]4 года назад

0 0

Вот так вот получается.

Читайте также

Программа - вывести сумму положительных из трех введенных чисел Используя программу PascalABC-PascalABC.NET

Марья 1969

<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

ReadSeqReal(3).Where(t -> t > 0).Sum.Println

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Пожалуйста помогите !!!! Срочно!! Информатика: Напишите программу, которая запрашивает у пользователя количество учеников в клас

daSha666sdfghjkl

Program n1;
var a,b: integer;
begin
writeln('введите кол-во учеников и кол-во девочек: ');
readln(a,b);
writeln('в классе ',a,' учеников');
writeln('Из них ',b,' девочек и ',a-b,' мальчиков');
end.

0 0

4 года назад

Помогите пожалуйста дам 98 баллов!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

sam19955

Ответы: 32 (убираем 1-ю и 3-ю цифры) и 13 (убираем 1-ю и 4-ю цифры).

0 0

1 год назад

ДАЮ КУЧУ БАЛЛОВ !!! РЕШИТЕ ЖЕЛАТЕЛЬНО С ПОДРОБНЫМ РЕШЕНИЕМ !!! 1) Какой объем имеет оперативная память компьютера если ff шестна

Ася94 [49]

Решаю на сколько понимаю и если нет никаких особенностей для оперативы

Все ячейки памяти пронумерованы попорядку от 0 до конца FF, ячейка занимает один байт
Тогда просто умножаем обьем ячейки на колво = (FF+1)*1 байт = (255+1)*1 = 256 байт

0 0

4 года назад

Составить блок схему и программу нахождения суммы удвоенных четных чисел в интервале от 15 до 90

severanochka [159]

Var k,summa:integer; begin for k:= 15 to 90 do if k mod 2 =0 then summa:= summa + 2*k; writeln(summa); end.

0 0

4 года назад