var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
#include <iostream>
using namespace std;
void main(){
int a,v,s;
cout<<"Input a: ";
cin>>a;
v = a*a*a;
s = 6*a*a;
cout<<"Ob'em: "<<v<<endl; //оператор endl - переносит каретку на новую строку
cout<<"Ploshch.: "<<s<<endl;
system("pause"); //останавливает выполнение программы до нажатия любой клавиши
}
Опустить хвост
Вправо45
Вперед50
Вправо45
Вперед50
Вправо45
Вперед50
Вправо45
Вперед50
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var k:=0;
for var n:=184 to 254 do begin
var m:=n;
while m mod 2=0 do m:=m div 2;
while m mod 3=0 do m:=m div 3;
if m=1 then Inc(k)
end;
Writeln('Количество чисел равно ',k)
end.
<u><em>Результат выполнения программы</em></u>
Количество чисел равно 3