Дано целое число i.

найти значение a,

где a=i^3, если i кратно 5

a=i^2, если i кратно 2.

a=2*i+1 в остальных случаях.

Question

Феодула

5 октября, 09:07

+3

Ответы (1)

Знаете ответ?

Лексей · Answer 1

Var i, a:integer;

begin

readln (i) ;

if i mod 5=0 then a:=i*i*i else

begin

if i mod 2=0 then a:=i*i else a:=2*i+1;

end;

writeln (a) ;

end.

Дано целое число i.найти значение a,где a=i^3, если i кратно 5a=i^2, если i кратно 2.a=2*i+1 в остальных случаях.