// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b,c):=ReadInteger3('a,b,c =');
var k:= ReadInteger('k =');
var (x,y,z):=ReadInteger3('x,y,z =');
Writeln(min(x div(a*k),min(y div(b*k), z div(c*k))));
end.

<u>Пример:</u>
a,b,c = 2 3 4
k = 2
x,y,z = 4 8 19
1

0 0

4 года назад

Напишите наибольшее двухзначное число для которого истинно высказывание

eugenie001 [12.2K]

Ответ: 98

Объяснение: 9 - нечетная, 98 нацело не делится на 3

0 0

3 года назад

Дано целое число если оно положительное то возвести его в квадрат иначе возвести третьей степень

Rosemary306 [1K]

Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>

0 0

4 года назад

Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обознач

Mozgo-go [6.1K]

Программа (python 3.5), делающая то, что указано в условии:
from re import sub
s = '5' * 254
while ('2222' in s) or ('5555' in s):
if '2222' in s:
s = sub('2222', '5', s, 1)
else:
s = sub('5555', '2', s, 1)
print(s)

Получается 22255

0 0

4 года назад