Регистрация
DjYuLiAnNa
22.08.2020 03:37
Информатика
Есть ответ 👍

Даны два числа. если хотя бы одно из них кратно 4, то второе увеличить на 3. это в паскале. в принципе все понятно, но у меня не получается написать, что хотя бы одно из них кратно. , 21 .

165
428
Посмотреть ответы 3

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

julia77mama
julia77mama
4,4(28 оценок)
Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var (a, b) : = readinteger2;

  if (a mod 4 = 0) or (b mod 4 = 0) then b += 3;

  println(a, b)

end.

числа можно ввести оба через пробел или по одному
GreenTea111
GreenTea111
4,7(49 оценок)

чтобы проверить, кратно ли число четырём, нужно написать такую проверку:

if (х mod 4 = 0)

это значит: "если остаток от деления числа х на 4 равен нулю, "

программа:

program p;

var

  x,y: integer;

begin

  var s: ='**** -=alphaeus=- ****';  

  for var k: =1 to 22 do begin write(s[k]); sleep(47) end;

  writeln; writeln;

  writeln('введите числа: ');

  write('x = '); readln(x);

  write('y = '); readln(y);

  if (x mod 4=0) or (y mod 4=0) then y: =y+3;  

  writeln('результат: ');

  writeln('x = ',x);

  writeln('y = ',y);

end.

ke7rin
ke7rin
4,5(30 оценок)
// pascalabc.net 3.2, сборка 1367 от 20.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readinteger('введите пятизначное натуральное число: ').tostring;   if s[2]< s[4] then writeln('вторая цифра меньше четвертой')   else writeln('вторая цифра не меньше четвертой') end.

Популярно: Информатика