20247
17
В последней предвоенной (№6 за 1941 г.) "Технике - Молодёжи" темой номера были... космические полёты. Да-да, именно так, и даже обложка выдержана в этом стиле! Конечно, потом военно-оборонные темы полностью вытеснили этакое, да и журнал сильно похудел - но этот номер ещё был "мирным". Хотя подписчики, наверное, получали его, когда война уже началась.
Давайте посмотрим некоторые материалы этого номера, и конечно же, основной материал - про полёты в космос.
×
Источник:
Ссылки по теме:
- Топ 10 портативных кассетных магнитофонов из СССР
- Советский дворовый "бумбокс". Электроника - 302
- История создания журнала «Крокодил»
- Микрокомпьютер Электроника МК-85
- Сделано в СССР: Фотоаппараты
Техника Молодежи
Юный техник
Юный натуралист
Вокруг света с приложениями.
Сейчас кроме "Популярная механика" (основанным собственно на "вау, *****я себе", а не на научных знаниях).
var a,y,m: integer;
begin
a := (14 - Month) div 12;
y := year - a;
m := month + 12 * a - 2;
Result := (7000 + (day + y + y div 4 - y div 100 + y div 400 + (31 * m) div 12)) mod 7;
end;
Только воскресенье тут = 0
В паскалЕ (delphi) есть готовая функция
function DayOfWeek(Date: TDateTime): Integer;
, там результат на единицу больше вашего (воскресенье=1, суббота=7)
Исправляюсь
function WhatDay(Year: Integer; Month: Integer; Day: Integer):integer;
var a,y,m: integer;
begin
a := (14 - Month) div 12;
y := year - a;
m := month + 12 * a - 2;
Result := 1 + (7000 + (day + y + y div 4 - y div 100 + y div 400 + (31 * m) div 12)) mod 7;
end;
Я бы лучше результат на 0 провверил - если 0 то пишем 7, тогда привычнее будет (понедельник у нас = 1, а у некоторых 1 это воскресенье)