1 вапрос атвет 1 2 вапрос 3 атвет 3 вапрос 1 атвет 4 атвет 1 атвет
Y=X5
Если Х=2, то 2*5= 10
Ответ: Y=10
Если Х=3, то 3*5=15
Ответ: Y=15
Если что-то не так, то я просто не до конца поняла задание)
Будет 3,2 КБайта или 26214 бит.
var A,B,C,S1,S2,k,i:integer;
begin
write('A, B, C:');
readln(A,B,C);
S1:=0;
while A>S1 do
begin
k:=k+1;
S1:=S1+C;
end;
S2:=0;
while B>S2 do
begin
i:=i+1;
S2:=S2+C;
end;
k:=k*i;
writeln('k = ',k);
end.
Var a,b,c:integer;
Begin
Write('Введите три целых числа: ');ReadLn(a,b,c);
if b>a then a:=b;
if c>a then a:=c;
WriteLn(a);
End.