Дано целое число i.
найти значение a,
где a=i^3, если i кратно 5
a=i^2, если i кратно 2.
a=2*i+1 в остальных случаях.
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад