===== 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.
Var
day, //номер дня
day_dist, //дистанция пройденная в этот день в метрах
sum_dist :integer;//дистанция пройденная за все дни
Begin
day_dist:=3000; //за первый день пробежал 3000 м.
sum_dist:=3000; //общая дистанция тоже 3000 м.
//Найти ответ можно тремя способами
//Вариант 1. цикл for
{
for day:=2 to 15 do begin //считаем со 2 по 15 день
day_dist:= day_dist + 200;//дневная дистанция увеличивается на 200 м.
sum_dist:= sum_dist + day_dist;//общая дистанция увеличивается на
дистанцию пройденную за день
end;
}
//Вариант 2. цикл while
{
day:=1; //первый день посчитан
while day < 15 do begin //пока не настал 15 день считаем
day := day +1; //увеличиваем номер дня
day_dist:= day_dist + 200; //увеличиваем дневную дистанцию
sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию
end;
}
//Вариант 3. цикл repeat until
{
day:=1; //первый день посчитан
repeat //начинаем считать следующие
day := day +1; //увеличиваем номер дня
day_dist:= day_dist + 200; //увеличиваем дневную дистанцию
sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию
until day = 15; //если настал 15 день перестаем считать
}
writeln('В 15 день пройдено ', day_dist,'метров.'); //вывод результатов
writeln('За 15 дней пройдено ', sum_dist,'метров.');
end.
Одно из правил это : 1. Основное освещение не должно превышать по яркости саму яркость монитора. 2. Яркость и контрастность монитора, это нужно самому настраивать индивидуально только под себя. 3. Уровевь размещения монитора чтобы глаза смотрели на монитор а не под монитор. 4. работа закомпьютором не должна превышать 7-9 часов и перерыв для отдыха продолжительностью 15 минут, через каждый час работы