Предмет: Окружающий мир, автор: ermakoff085

узнай у взрослых, из семейного архива, какую роль сыграли события 1917 года и Гражданской войны в судьбе твоей семьи

Ответы

Автор ответа: rissbananom

Революция и последующая Гражданская война в судьбе моего рода сыграли трагическую роль. дед мой был из мастерового рода, из портных, но вышеупомянутые события внесли хаос в уклад рода настолько, что дед был вынужден оставить родовое ремесло и уехать в Сибирь, чтобы попросту не умереть с голоду. Бабушка осталась сиротой во время Гражданской войны и была вынуждена работать в семье старшей сестры, и лишь когда дед возвратился с Сибири, они встретились и начали уже новую ветвь моего рода.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: mkotoa

затранскрибируйте слова :постоянно,используя,словари

2 года назад

Предмет: Українська мова, автор: Anuta1112222

Діалог дискусійного характеру ( 7-10 реплік) Чи повинні уроки фізкультури бути обов язковими для учнів?

2 года назад

Предмет: Русский язык, автор: volyninvova

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

2 года назад

Предмет: Литература, автор: london2026

помогите составить краткий план рассказа "Постойко" (план каждой части)

9 лет назад

Предмет: Информатика, автор: TheCrazyWolf2017

В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.

Алгоритмический язык

алг
нач
целтаб Dat[1:10]
цел k, m, day
Dat [1] := 7; Dat [2] := 2
Dat [3] := 3; Dat [4] := 3
Dat [5] := 4; Dat [6] := 4
Dat [7] := 5; Dat [8] := 5
Dat [9] := 7; Dat [10]:= 6
day := 1; m := Dat [1]
нц для k от 2 до 10
если Dat[к] >= m то
m := Dat[к]; day := к
все
кц
вывод day
кон
Бейсик

DIM Dat(10) AS INTEGER
Dat (1) = 7: Dat (2) =2
Dat (3) = 3: Dat (4) = 3
Dat (5) = 4: Dat (6) = 4
Dat (7) = 5: Dat (8) = 5
Dat (9) = 7: Dat (10) = 6
day = 1: m = Dat(1)
FOR k = 2 TO 10
IF Dat (k) >= m THEN
m = Dat (k)
day = k
END IF
NEXT k
PRINT day
END
Паскаль

var k, m, day: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 2;
Dat[3] := 3; Dat[4] := 3;
Dat[5] := 4; Dat[6] := 4;
Dat[7] := 5; Dat[8] := 5;
Dat[9] := 7; Dat[10] := 6;
day:= 1;
m:= Dat[1];
for k:= 2 to 10 do begin
if Dat[k] >= m then
begin
m := Dat [k];
day := k
end
end;
write(day);
end.
Как это решать?

9 лет назад