1)Опредилите делится ли данное число на 6, В Поскале!! 2)найдите количество натуральных чисел сумма кубов которых не привышает 589 в поскале!

2

Ответы и объяснения

2013-05-29T06:30:09+00:00
1)if a mod 6=0
Then writeln('делится')
Else writeln('не делится')
2013-05-29T06:39:29+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program delitel;

Var A: integer;

begin

Write ('Введите число А=');

Read (A);

If A mod 6 = 0 then Write ('Число А делится на 6 без остатка')

else

Write ('Число А не делится на 6 без остатка');

end.

 

Program delitel;

Var A, S: integer;

begin

S:=0;

A:=1;

i:=0;

While S<589 do begin

S:=S+A*A*A;

i:=i+1;

A:=A+1;

end;

Write ('Количество чисел i=', i);

end.