Program n1;
//Название программы
var i,n,sum: integer;
//Объявление переменных
begin
//Начало
readln(n);
//Ввод n (количество чисел) и и переход на следущую строку
sum:=0;
//Присваивание переменной sum знаяения 0 (изначально сумма равна 0)
for i:=1 to n do sum:=sum+2*i;
//В цикле от 1 до n к переменной
//sum прибавляем 2*i, т.е. 1*2+2*2+3*2+..n*2=2+4+6+..+2n;
writeln(sum);
//Ввод sum (cумма первых n целых положительных четных чисел)
//и и переход на следущую строку
end.
//Конец
Электронные таблицы - это эксель, т. е. столбики и колонки.
<span>Реляционные базы данных - это когда объекты записей связываются по правилам, например один к одному или один ко многим. Они используются для хранений значений в программировании. </span>
Var N, K: integer;
begin
write('N = '); readln(N);
if N > 0 then
begin
K := sqr(N + 1) + sqr(N + 2) + sqr(N + N);
writeln('K = ', K);
end
else
write('N меньше или равно 0');
end.
Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.