Ответы
Ответ дал:
1
Відповідь:
var
S: integer;
Sk: integer;
begin
S := 0;
write('Введите значение для переменной Sk: ');
readln(Sk);
if (Sk > 0) then
begin
S := Sk;
end;
writeln('Результат: ', S);
end.
hmelyhh:
спасибо
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
7 лет назад
7 лет назад