2) Даны числа от 5 до 78. Заменить все числа кратных 11 на квадрат этого числа. 3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7. Помогите пожалуйста!!!)))))
2) Даны числа от 5 до 78. Заменить все числа кратных 11 на квадрат этого числа.
3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7.
Помогите пожалуйста!!!)))))
Гость
Ответ(ы) на вопрос:
Гостьprogram D1KPxx6;
uses crt;
var
mas:array [1..78] of integer;
i,n,sum:integer;
begin
for i:=5 to 78 do
begin
mas[i]:=i;
write(mas[i],' ');
end;
for i:=5 to 78 do
begin
if (mas[i] mod 11=0) then
begin
writeln(mas[i]);
mas[i]:=mas[i]*mas[i];
end;
write(mas[i],' ');
end;
end.
program D1KPxx7;
uses crt;
var
i,n,sum:integer;
begin
read(n);
for i:=1 to n do
if (i mod 5=0) and (i mod 7<>0) then
sum:=sum+i;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы