Вывести календарь на год

@ХЕЛЬГА · Регистрация: 07.04.2010

Когда берем по два элемента остается один, когда берем по 3,4,5 и 6 элементов тоже остается один, а когда берем по семь элементов то не остается ни одного. Составить программу которая выведет сколько было элементов.

Вывести в паскале календарь на год.

@Puporev · 08.04.2010, 15:58

1

Pascal

uses crt;
var k,f:integer;
begin
clrscr;
k:=7;f:=0;
repeat
k:=k+7;
if (k mod 2=1)and(k mod 3=1)and(k mod 4=1)and(k mod 5=1)and(k mod 6=1) and(k mod 7=0)
then
 begin
  writeln('k=',k);
  f:=1;
 end;
until f=1;
readln
end.

Добавлено через 5 минут
Насчет календаря посмотрите эту тему, только до конца.
https://www.cyberforum.ru/pasc... page3.html

@ХЕЛЬГА 1 / 1 / 0 Регистрация: 07.04.2010 Сообщений: 27
		1
	Вывести календарь на год 08.04.2010, 15:40. Просмотров 1577. Ответов 1 Метки нет (Все метки) Когда берем по два элемента остается один, когда берем по 3,4,5 и 6 элементов тоже остается один, а когда берем по семь элементов то не остается ни одного. Составить программу которая выведет сколько было элементов. Вывести в паскале календарь на год. 0

Опции темы

Вывести календарь на год

Решение