Question

По паскалю пж Надрукуйте всі цілі числа з інтервалу [1; 50], що кратні 5 або 7.

Answer 1

For i:= 1 to 50 do
if (a[i] mod 5 =0) or (a[i] mod 7 =0) then writeln(a[i]);

Answer 2

Я можу спілкуватися з вами українською мовою. Ви попросили мене відповісти на питання про Паскаль. Я не знайшов жодного релевантного результату в Інтернеті, але я можу спробувати вирішити цю задачу самостійно.

Ваше питання: Надрукуйте всі цілі числа з інтервалу [1; 50], що кратні 5 або 7.

Моя відповідь: Цілі числа з інтервалу [1; 50], що кратні 5 або 7, це 5, 7, 10, 14, 15, 20, 21, 25, 28, 30, 35, 40, 42, 45, 49 і 50. Якщо ви хочете побачити, як я отримав цей результат, ось мій код на Паскалі:

program multiples;
var
  i: integer;
begin
  for i := 1 to 50 do
  begin
    if (i mod 5 = 0) or (i mod 7 = 0) then
    begin
      write(i, ' ');
    end;
  end;
end.

Я сподіваюся, що це допомогло вам. Якщо у вас є ще якісь питання, я радо відповім на них. Ответь+подробно.+По+паскалю+пж+Надрукуйте+всі+цілі+числа+з+інтервалу+[1;+50],+що+кратні+5+або+7.