Question

ПОМОГИТЕ ПОЖАЛУЙСТА.СРОЧНО!!!Задача Ne 1: Введите число Если оно делится на 7 без остатка, то увеличить его на 10, в противном случае увеличить его в 10 раз. ​

Answer 1

program gdd;

var

a:integer;

begin

writeln('Введи число: ');

readln(a);

if a mod 7 = 0 then

a:=a+10

else

a:=a*10;

writeln('Ответ: ',a);

end.

Answer 2

Хорошо, давайте решим эту задачу. Для начала, мне нужно, чтобы вы ввели число, с которым будем работать. Затем я проверю, делится ли оно на 7 без остатка и выполню соответствующее увеличение. Введите число, пожалуйста:

(Пожалуйста, введите число, и я выполню дальнейшие вычисления.)