var
a: <em>integer</em>;
begin
write('Enter your age: ');
readln(a);
writeln('Your age in months is ', a * 12);
<span>end.</span>
5 единиц
Пишешь в ответе так: 11111
Ответ:
3. 12
Объяснение:
Здесь цикл с постусловием, который прерывается когда z = 0
x = 96 y = 54
z = x mod y = 96 mod 54 = 42
z = 0 (нет) х = у = 54 у = z = 42
x = 54 y = 42
z = x mod y = 54 mod 42 = 12
z = 0 (нет) х = у = 42 у = z = 12
x = 42 y = 12
z = x mod y = 42 mod 12 = 6
z = 0 (нет) х = у = 12 у = z = 6
x = 12 y = 6
z = x mod y = 12 mod 6 = 0
z = 0 (да)
x = 12 y = 6
var i, multi:integer;
s:string;
begin
readln(s);
multi:=1;
for i:=1 to length(s) do begin
if StrToInt(s[i]) mod 3 = 0 then
multi:=multi*StrToInt(s[i]);
end;
if multi = 1 then
writeln('Нет')
else
writeln(multi);
end.