Составить программу ,которая определяет является ли веденное целое число кратным трем и выводит на экран соответствующее сообщение : ''да'' лиюо ''нет''
1)линейный алгоритм. а) Проснулся, открыл глаза, снял одеяло, встал с кровати, пошел в ванну, почистил зубы б) Взял учебник, открыл учебник, открыл содержание, нашел нужную тему в содержании, открыл нужную страницу в) Пошел в магазин, выбрал товар, взял товар, пошел на кассу, подождал свою очередь, оплатил товар, пошел домой г) Включил компьютер, открыл браузер, открыл поисковик, ввел запрос, открыл сайт из предложенных поисковиком д) Вышел из дома, повернул направо, повернул налево, пошел прямо, пошел во двор школы, зашел в школу
2)Разветвленные алгоритмы а) Если дождь идет, то я возьму с собой зонт, если дождь не идет, то зонт брать не буду б) Если я болен, то я не пойду в школу, если я здоров, то я пойду в школу в) Если я выучу домашнее задание, то получу хорошую оценку, если не выучу, то плохую г) Если я имею водительские права, то я могу управлять транспортом, если я не имею водительских прав, то не могу управлять транспортом д) Если мне больше 18 лет, то я совершеннолетний, если меньше 18 лет, то я несовершеннолетний
3)Циклические алгоритмы а) Посмотрю время? Больше 12 - иду спать, меньше - ещё могу посмотреть телевизор и через пять минут посмотрю время снова б) У меня отмылась посуда? Если да, то я свободен от дел, если нет, то я снова мою посуду и проверяю ее на чистоту в) Мне исполнилось 14 лет? Если да, то пора получать паспорт, если нет, то на следующий день рождения я снова с это у себя. г) Я утолил жажду? Если да, то я свободен, если нет, то я попью воды ещё и подумаю, утолил ли я жажду снова. д) Я правильно сделал домашнюю работу? Если да, то я свободен, если нет, то я исправлю ошибки и снова задам себе этот вопрос.
Все довольно просто, мог бы и сам прогнать через ide!) 1) const a: array [1..6] of integer=(1, 7, 3,6,0,10); тут ты инициализируешь массив которые включает 6 элементов такие как: (1, 7, 3,6,0,10) 2) после ты по циклу начинаешь складывать все элементы массива, которые описаны выше - for i:=1 to 6 do s:=s+a[i]; т.е. 1+7+3+6+0+10 3) далее ты делишь сумму на 6 и присваиваешь результат переменной sr - sr:=s/6; 4) после этого пытаешься вывести значение переменной sr - writeln(‘sr=’, sr);
ответ будет 4.5, но твоя программа не выполниться, т.к. 4.5 это дробное число, а у тебя на переменную sr стоит тип integer, для того, чтобы программа отработала и вывело ответ, сделай тип переменной sr: real и тогда у тебя все получиться =)
var
a: integer;
begin
writeln ('введи целое число');
read (a);
if (a mod 2)=0 then writeln ('да');
if (a mod 2)<>0 then writeln ('нет');
end.