Задание 2 Вариант 1 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Запишите исходные данные и полученные результаты:
Вес на прошлой неделе
Результат взвешивания
Комментарий
Вес на прошлой неделе
Результат взвешивания
Комментарий
program s5_v1_2;
const
n = 8;
var
a: array[1..n] of real;
c: real;
i: integer;
begin
writeln(‘ ‘);
for i := 1 to n do
begin
write(i, ‘=’);
readln(a[i])
end;
writeln(‘ ‘);
for i := 1 to n do
begin
write(i, ‘=’);
readln(c);
if a[i] > c then writeln(‘Поздравляю!’)
else writeln(‘Прибавка ‘, c — a[i]:2:1)
end.
Программа хранит веса 8 членов клуба за прошлую неделю в массиве a. Затем для каждого человека вводится новый вес c. Если новый вес меньше старого, выводится «Поздравляю!», иначе вычисляется прибавка веса $$c-a[i]$$ и выводится она.
| № | Вес на прошлой неделе | Результат взвешивания | Комментарий |
|---|---|---|---|
| 1 | 97.8 | 105 | Прибавка 7.2 |
| 2 | 106.4 | 98.2 | Поздравляю! |
| 3 | 123 | 88.7 | Поздравляю! |
| 4 | 98.5 | 103 | Прибавка 4.5 |
| 5 | 150.9 | 77 | Поздравляю! |
| 6 | 98.2 | 80 | Поздравляю! |
| 7 | 134.7 | 125.3 | Поздравляю! |
| 8 | 126.9 | 130 | Прибавка 3.1 |
program s5_v1_2;
const
n = 8;
var
a: array[1..n] of real;
c: real;
i: integer;
begin
writeln(‘ ‘);
for i := 1 to n do
begin
write(i, ‘=’);
readln(a[i]);
end;
writeln(‘ ‘);
for i := 1 to n do
begin
write(i, ‘=’);
readln(c);
if a[i] > c then writeln(‘Поздравляю!’)
else writeln(‘Прибавка ‘, c — a[i]:2:1);
end;
end.
