Дано произвольное число К Если оно положительное то уменьшить на 6. в противном случае увеличить на 10
Ответы
Ответ дал:
0
program primer1;
var k:integer;
begin
writeln('введите K');
readln(k);
If k>0 then k:= k-6 else k:= k+10;
write(k);
End.
var k:integer;
begin
writeln('введите K');
readln(k);
If k>0 then k:= k-6 else k:= k+10;
write(k);
End.
Ответ дал:
0
это если не учитывать 0. Если в условии его взять как положительное, то в 6 строчке после знака> добавить( без пробелов) знак=
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад
9 лет назад