Дано целое число. определить является ли оно кратным 3. (написать программу)

Ответы

s-laplandia6

15.03.2021

Program kratnoe3;
var x: integer;
Begin
  Writeln('Введите целое число: ');
  readln(x);
if (x mod 3) = 0 then
Writeln('Кратно 3-м!')
else
Writeln('Не кратно 3-м'); end.

ok-49566

15.03.2021

Var a :integer;
begin
writeln ('Введите число');
readln (a);
if a mod 3 = 0
then
writeln ('число ', a,' делится на 3')
else
writeln ('число ', a,' не делится на 3');
end.

kia80

15.03.2021

Lazarus - среда быстрой разработки программного обеспечения для компилятора Free Pascal, аналогичная Delphi.

Основные свойства Lazarus:

1. В Lazarus используется технология визуального программирования;

2. Пользователь для создания графического интерфейса приложения использует готовые компоненты, значки, которые находятся на панели компонентов;

3. После помещения компонент на форме, программный код для него генерируется автоматически; вручную остается запрограммировать только те действия, которые будет выполнять это приложение.

Процесс создания приложения в Lazarus можно разделить на следующие этапы:

1. Создание проекта. В результате на экране появляется пустая форма (окно будущего приложения).

2. Создание графического интерфейса проекта - расположение необходимых элементов, задание размеров, изменение свойств;

3. Написание программного кода, который определит, что будет делать ваша программа.

4. Отладка программы.

При запуске Lazarus появляется оболочка создания приложений, называемая интегрированной средой разработки IDE (Integrated Development Environment). На экране появиться набор окон:

Roman343247

15.03.2021

1. В виде блок схемы, словесная, в виде программного кода, в виде сиквенс диаграммы, псевдокод.

2. Означает на естественном языке сформулировать последовательность действий\шагов, пройдя по которым можно решить задачу

3. Это обычный язык, например русский, но с тщательным отбором фраз, не допускающих двусмысленность и неправильное толкование

4. Отсутствие наглядности, недостаточная точность.

Зато можно быстро изложить суть алгоритма для передачи этой информации в мозг того кто будет писать программу по этому алгоритму

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дано целое число. определить является ли оно кратным 3. (написать программу)

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

Что произойдёт при попытке исполнения инструкции? t = range (2, 4, -1)

2. Исходные значения:1) x = 3, = 16;2) x mm 9, 1) = 5.х, ухс 16х> уx: = Y -- 2y: =y+4х: = х 5y: = y – 3

Цикл с предусловием. Урок 1 Дан фрагмент кода программы.Определи, какое число нужно поставить вместо многоточия, чтобы цикл выполнился ровно 3 раза.3465

Чтобы нарисовать модель фигуры шестигранника в 3d- формате, назавите необходимые инструменты

Найти кол-во и сумму отрицательных значений y. y=a(1+l)/l . где a не равно нулю , а l пренадлежит [-2.5 : 2.5] c шагом 0.52

Описать функцию square(k) логического типа, возвращающую true, если целый параметр k(> 0) является квадратом некоторого числа, и false в противном случае. паскаль

Сиспользованием цикла while do составить программу, которая рассчитывает выражение в=m(m++m) в случае целого числа m

Вся семья смотрит видеозапись любимого мультфильма? носитель информации?

Полнения алго-6. Какое значение получит переменная у после выполненияритма?x:=1y:=2xy:=y+3y:=yхy:=y+4y:=y*хy:=y+5

Рябят кто знает как сделать пчелу в Corel Draw?

Нужна по информатике! P.s. задания на казахском!

Дано целое число. определить является ли оно кратным 3. (написать программу)

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

Что произойдёт при попытке исполнения инструкции? t = range (2, 4, -1)

2. Исходные значения:1) x = 3, = 16;2) x mm 9, 1) = 5.х, ухс 16х&gt; уx: = Y -- 2y: =y+4х: = х 5y: = y – 3​

Цикл с предусловием. Урок 1 Дан фрагмент кода программы.Определи, какое число нужно поставить вместо многоточия, чтобы цикл выполнился ровно 3 раза.3465​

Чтобы нарисовать модель фигуры шестигранника в 3d- формате, назавите необходимые инструменты

Найти кол-во и сумму отрицательных значений y. y=a(1+l)/l . где a не равно нулю , а l пренадлежит [-2.5 : 2.5] c шагом 0.52

Описать функцию square(k) логического типа, возвращающую true, если целый параметр k(&gt; 0) является квадратом некоторого числа, и false в противном случае. паскаль

Сиспользованием цикла while do составить программу, которая рассчитывает выражение в=m(m++m) в случае целого числа m

Вся семья смотрит видеозапись любимого мультфильма? носитель информации?

Полнения алго-6. Какое значение получит переменная у после выполненияритма?x:=1y:=2*xy:=y+3y:=y*хy:=y+4y:=y*хy:=y+5​

Рябят кто знает как сделать пчелу в Corel Draw? ​

Нужна по информатике! P.s. задания на казахском!

2. Исходные значения:1) x = 3, = 16;2) x mm 9, 1) = 5.х, ухс 16х> уx: = Y -- 2y: =y+4х: = х 5y: = y – 3

Цикл с предусловием. Урок 1 Дан фрагмент кода программы.Определи, какое число нужно поставить вместо многоточия, чтобы цикл выполнился ровно 3 раза.3465

Описать функцию square(k) логического типа, возвращающую true, если целый параметр k(> 0) является квадратом некоторого числа, и false в противном случае. паскаль

Полнения алго-6. Какое значение получит переменная у после выполненияритма?x:=1y:=2xy:=y+3y:=yхy:=y+4y:=y*хy:=y+5

Рябят кто знает как сделать пчелу в Corel Draw?