Привет, у меня вопрос, который касается информатики. Работу необходимо оформить в Excel (VBA). + Ко всему оформить график на основе полученных результатов. Заранее !
Программа. var q,s:integer; begin s:=1; for q:=1 to 365 do s:=s+q; Writeln(s); end.
Описание программы. var q,s:integer; // Объявление переменных, где q - цикл от 1 до 365, s - сумма результата. begin // Начало выполнение программы. s:=1; // Присваиваем переменной s значение 1, т.к. по условию 1 рубль. for q:=1 to 365 do // Цикл от 1 до 365 s:=s+q; // Сумма цикла. То есть - Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня. Writeln(s); // Вывод результата. end. // Конец выполнение программы.
var q,s:integer;
begin
s:=1;
for q:=1 to 365 do
s:=s+q;
Writeln(s);
end.
Описание программы.
var q,s:integer; // Объявление переменных, где q - цикл от 1 до 365, s - сумма результата.
begin // Начало выполнение программы.
s:=1; // Присваиваем переменной s значение 1, т.к. по условию 1 рубль.
for q:=1 to 365 do // Цикл от 1 до 365
s:=s+q; // Сумма цикла. То есть - Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня.
Writeln(s); // Вывод результата.
end. // Конец выполнение программы.