В данном массиве находится 4 элемента
1)2
2)-2
3)-2
4)2
<span>Наибольшей наглядностью представления информации.</span>
Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.
Трехпалубный с возможностью вращения можно поставить 18 раз
Var x, y, z, k: integer;
begin
readln(x, y, z);
k:=0;
if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем');end;
if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем');end;
if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end;
if (k =0) then writeln('Переменных, кратных трем, не обнаружено!');
end.