Задание 2 Вариант 1 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

2. Каждый вторник члены Клуба Толстяков выстраиваются в определённом порядке и взвешиваются. Напишите программу, которая бы хранила взвешивания всех 8 членов клуба за прошлую неделю. При вводе новых данных компьютер должен печатать «Поздравляю!», если члену клуба удалось похудеть, либо величину прибавки веса.

Запишите исходные данные и полученные результаты:

Вес на прошлой неделе

Результат взвешивания

Комментарий

Вес на прошлой неделе

Результат взвешивания

Комментарий

program s5_v1_2;

const

n = 8;

var

a: array[1..n] of real;

c: real;

i: integer;

begin

writeln(task task);

for i := 1 to n do

begin

write(i, task=task);

readln(a[i])

end;

writeln(task task);

for i := 1 to n do

begin

write(i, task=task);

readln(c);

if a[i] >c then writeln(taskПоздравляю!task)

else writeln(taskПрибавка task, c - a[i]:2:1)

end.