1. Информатика
  2. Нужно составить программу

Нужно составить программу (pascal) определяющую является ли число а кратным числу в.

андрей2149 андрей2149    2   17.05.2019 20:30    1

Ответы
АлексейРИ АлексейРИ  11.06.2020 01:52

var a,b: integer;
begin
readln(a);
readln(b);
if (a mod b)=0 then
writeln('Число кратно')
else writeln('Число не кратно');
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
7164260 7164260  10.07.2019 10:50
Если при наборе текста все буквы отображаются прописными то это означает что нажатие клавиша 1.num lock 2.caps lock 3.f1...
сафаралиев сафаралиев  10.07.2019 10:50
Что означает фраза операционная система windows обеспечивает одинаковый пользовательский интерфейс при работе с разными объектами...
kosahevaluba kosahevaluba  21.05.2019 15:10
Найдите в интернете данные о росте количества пользователей и серверов за 2006-2012 год. лучше всего нужна диаграмма...
даниял09062007 даниял09062007  21.05.2019 15:10
А-7л в-5л отмереть -1 л как решать ? !...
dimon564557 dimon564557  21.05.2019 15:10
Определите, какие из предложенных ниже адресов являются адресами: а) коммерческих организаций; б) образовательных учреждений....
sellvladklim00oy13em sellvladklim00oy13em  18.12.2019 09:23
Вобщежитии некоторого университета проживают студенты. среди них встречаются ботаники, лирики, и программисты. известно, что ботаников – 70 человек, что в два раза меньше,...
Викуша0402 Викуша0402  18.12.2019 09:21
Функция принимает три аргумента. вычисляя результат, она составляет первый и третий аргумент, а затем вычитает из полученного значения второй аргумент. def savings (pocket_money,...
maks695 maks695  18.12.2019 09:20
Язык паскаль.программисту было поручено написать программу нахождения произведения отрицательных элементов одномерного целочисленного на фото​...
pestowasonya pestowasonya  18.12.2019 09:14
Program n_2; var i: integer; a: array of integer; begin randomize; for i: = 1 to 10 do a[i]: = random(100); for i: = 1 to 10 do writeln ( a[ , i, ] = , a[i]) end; из...
MoLoDaYa666 MoLoDaYa666  09.06.2019 00:00
Вычислите произведение чисел из промежутка[-10; 10] кратных 3. число 0 из промежутка исключить. блок-схема...

Популярные вопросы