Написать программу в pascal которая считывает сумму всех кратных чисел от a до b

👇

Ответ:

Zheka5644

25.01.2022

Var a,b,i,kratnoe,n,s:int64;
begin
read (a,b,kratnoe);
s:=0;
for i:=a to b do
if (i mod kratnoe=0) then s:=s+i;
write(s);
end.

4,5(63 оценок)

Открыть все ответы

Ответ:

Fancyone

25.01.2022

Im dont no

Объяснение:

Im dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont no

4,6(92 оценок)

Ответ:

55555555Vgggg

25.01.2022

{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать.
Должна работать, не работает - отпишись, отыщу паскаль и исправлю.
Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}

program massiv;
var x:array[1..10] of real;
n, i:integer;
s:real;

begin
writeln('Vvedite razmer massiva');
readln(n);
if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva')
else begin {check: +}
for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array}
s:=0;
for i:=1 to n do
begin
s:=s+power(x[i], 3);
end;
writeln(s:2:2);
end;
readln; {stop here to read the program answer}
end.

4,5(86 оценок)

Это интересно:

Стиль-и-уход-за-собой

14.02.2023

Контроль волос африканского стиля: советы и инструкции...

Компьютеры-и-электроника

05.11.2022

Хочешь создать свою банду в GTA San Andreas? Просто следуй этим шагам!...

Взаимоотношения

23.05.2020

Хитрость как искусство: Как стать хорошим лжецом...

25.05.2020