===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
10
первая единица показывает количество двоек, ноль показывает количество единиц.
Самые удаленные города это города А и Б, самая короткая дорога до них это через АЕС и будет равна она 17
Петрова - 1место
Белова-2 место
Комарова-3
Митина-4
Громова-последнее
Не войдут в финал : Комарова, Митина, Громова
Вот. На фото все видно.
В 3-м примере мы прибавляем тех кто умеет играть только в шашки и только в шахматы и тех, кто играет в шашки и шахматы одновременно