Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 14.02.2013
Сообщений: 13
1

Разработать программу которая определяет является ли число кратное трем

25.02.2013, 19:48. Показов 1261. Ответов 2
Метки нет (Все метки)

разработать программу которая определяет является ли чило кратное трем
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2013, 19:48
Ответы с готовыми решениями:

Напишите программу, которая в последовательности натуральных чисел определяет число кратное 6
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел,...

Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной
1)Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух...

Строка: Разработать программу, которая определяет, является ли данный текст палиндромом
Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет,...

Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным
Совершенным называется число, равное сумме всех своих делителей, меньших его самого (например,...

2
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
25.02.2013, 19:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var
  x: Integer;
BEGIN
Write('Введите число: ');
Readln(x);
If x mod 3=0 Then Writeln('Это число кратно 3')
Else
Writeln('Это число НЕ кратно 3')
END.
0
KOPOJI
25.02.2013, 20:05     Разработать программу которая определяет является ли число кратное трем
  #3

Не по теме:

Kodzaev, только тогда еще стоит добавить проверку на 0, 0 / 3 = 0

Цитата Сообщение от jimm500 Посмотреть сообщение
является ли чило кратное трем
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var
  x, i: Integer;
BEGIN
x := 3;
WriteLn('Преклони чело пред мной, боярин!');
//For i := 0 to x do begin
For i := 1 to x do begin
WriteLn('Бью челом, царь-батюшка!');
Readln;
end;
WriteLn('Коль трижды поклонился мне, свободным нынче нарекаю,');
WriteLn('И на свободу отпускаю!');
END.

1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.02.2013, 20:05
Привет! Вот еще темы с ответами:

Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным
Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1(F1=F2=1), а каждое...

Написать программу, которая определяет число Фибоначчи под номером N и проверяет, является ли это число возрастающим
Доброго времени! Есть задача: "Написать программу, которая определяет число Фибоначчи под...

Написать программу, которая определяет, является ли данное число совершенным
1) 1. Дано натуральное число N. Написать программу, которая определяет, является ли данное число...

Написать программу, которая определяет, заданное число является палиндромом
Условия задачи, которые нужно написать: 2. Написать программу, которая определяет, заданное...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.