На этот раз используя тот же принцип, что у чат-бота напишем свой электронный ежедневник на неделю. - id1008444220230309 от konsantin1805 09.03.2023 20:38

Question

Информатика: На этот раз используя тот же принцип, что у чат-бота напишем свой электронный ежедневник на неделю. (если забыли, то посмотрите на урок) создадим списки для дней недели: monday, tuesday, wednesday, thursday, friday, saturday, sunday. для начала, на каждый день будем назначать одно дело. 1) заполните список строками нет дел (подойдет цикл for) 2) создайте команду изменить дело (edit) 3) создайте команду вывести календарь на неделю (print) теперь, давайте улучшим наш ежедневник. в нулевом элементе

konsantin1805 · Accepted Answer

var

i: Integer;

l: Single;

counter: Integer;

begin

counter := 0;

for i := 0 to 14 do begin

Read(l);

if l >= 165 then

counter := counter + 1 ;

end;

Writeln(counter);

end.

Второй вариант

const

cN: Integer = 15;

cMinSuitableLength: Single = 165;

var

arr: array [0..14] of Single;

i, counter: Integer;

begin

for i := 0 to Length(arr) - 1 do

Read(arr[i]);

counter := 0;

for i := 0 to Length(arr) - 1 do

if arr[i] >= cMinSuitableLength then

counter := counter + 1;

Writeln(counter);

end.

Объяснение:

MOGZ ответил