Дано произвольное число к если оно положительное то уменьшить на 6. в противном случае увеличить на 10

174

455

Посмотреть ответы 2

Ответы на вопрос:

nasa21p08m1i

Информатика

4,8(40 оценок)

Program primer1; var k: integer; begin writeln('введите k'); readln(k); if k> 0 then k: = k-6 else k: = k+10; write(k); end.

Дарина37373

Информатика

4,5(60 оценок)

Ну если я правильно понял то что тут написано то вот на pascal'e.. ) var n,a,b,c: byte; begin readln(n); a: =n mod 10; n: =n div 10; b: =n mod 10; n: =n div 10; c: =n mod 10; if (a=b) or (a=c) or(b=c) then writeln('да') else writeln('нет'); end.