Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.01.2017, 16:36   #1
Лю***
Новичок
Джуниор
 
Регистрация: 11.01.2017
Сообщений: 1
По умолчанию две задачи на Паскале: 1) Вывести все натуральные числа, кратные 5, но которые не превышают число N, введенное пользователем с клавиатуры 2) есть ли среди 15 чисел нулевые элементы

Составить алгоритм и написать решение задачи на Паскале: Вывести все натуральные числа, кратные 5, но которые не превышают число N, введенное пользователем с клавиатуры.

Составить алгоритм и написать решение задачи на Паскале: Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы.
Лю*** вне форума Ответить с цитированием
Старый 11.01.2017, 16:49   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,951
По умолчанию

Код:
var n,i:integer;
begin
   Write('n = '); Readln(n);
   For i:=1 to n do
      If i mod 5=0 then
         Writeln(i);
   Readln;
end.
Код:
const n=15;
      a=-10;
      b=10;
var i,k:integer;
    nol:boolean;
begin
   Randomize;
   i:=0;
   nol:=false;
   Repeat
      i:=i+1;
      k:=a+Random(b-a+1);
      Writeln(k);
      If k=0 then
         nol:=true;
   Until i>=15;
   If nol then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программа, которая проверяет есть ли введенное пользователем число простым C++ программирование Помощь студентам 3 21.01.2014 14:49
Программка Delphi - надо вывести в строку все простые натуральные числа, которые меньше задаваемого трехзначного N Наталья30111992 Помощь студентам 1 30.10.2013 07:16
Дана матрица размерностью nxm, все элементы матрицы целые числа, которые определяются пользователем программы. vlad1kT Помощь студентам 1 16.06.2013 16:00
Составить программу: найти все натуральные числа кратные 3, интервал от1 до 1000 Миша.505 Паскаль, Turbo Pascal, PascalABC.NET 5 31.10.2011 17:06
Напечатать все кратные тринадцати натуральные числа by_sergo Помощь студентам 1 04.06.2011 07:42