Помогите составить программу на ПаскалеНайти сумму квадратов натуральных чисел от 15 до 25

Знания

Информатика

1 ответ:

вилдан [7]4 года назад

0 0

Var
i,s:integer;
begin
s:=0;
for i:=15 to 25 do
s:=s+sqr(i);
writeln(s);
readln;
end.

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

Вводится 5 любых чисел. Подсчитать сумму и количество чисел, кратных 6. Определить, делится ли на 4 полученная сумма.Pascal ABC

Панчик

Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.

0 0

4 года назад

Запишите на языке паскаль следующие выражения: 2(а²-b²), (a+b) (c+d), 2a+b поделить на c- 2dДАЮ 10 БАЛЛОВ!!!

виктор0000

2*(a*a-b*b)
(a+b)*(c+d)
(2*a+b)/(c-2*d)

0 0

4 года назад

Дана матрица действительных чисел D размером 5х6. Найти сумму модулей элементов, находящихся ниже главной диагонали. С++ Пожалуй

виктор1993 [28]

Держи :))
--------------

0 0

4 года назад

Анаграмма 1) накал а) наука о формах мышления 2) камыш б) линия связи 3) тенор в) мощный компьютер сети 4)иголка г) внешнее устр

дмитриева [89]

Канал -а, мышка, тенор-д, логика -а, сервер-в, килобайт -з, графика -е, алфавит -ж

0 0

4 года назад

Паскаль!!!!)вычислите значение целочисленной переменной с при а=26 и b=6b:=mod(a,b)+4c:=mod(a,b)+1 нужна полностью написанная пр

Света1234567890 [38]

Var
a,b,c:integer;
begin
a:=26;
b:=6;
b:=a mod b+4;
c:=a mod b+1;
writeln('a=',a,' b=', b,' c=',c)
end.

Тестовое решение:

a=26 b=6 c=3

0 0

4 года назад