Есть вопросы пиши в личку Паскаль var x, s, a: real; //описание переменных вещественного типа i: integer; //описание переменных целого типа
begin readln(x); ввод переменной x через клавиатуру
a := x; переменной a присваивается знчение переменной x s := a; переменной s присваивается знчение переменной a
for i := 2 to 13 do //цикл for выполняется пока переменная i не станет больше 13 if i mod 2 = 1 then begin если i mod 2 = 1 истино то выполняется блок программы ниже a := a * (-1) * x * x / ((i - 1) * i); s := s + a; end;
var a,i,b:integer; //мы определяем три переменные целого типа //a, i, b = равняются нулю begin readln(a); //вводиться с клавиатуры переменная a
while (b>0) do //это цикл с предусловием, //по условие в цикле истино, цикл продолжает работать //если условие ложно происходит выход из цикла begin for i:=2 to a do //цикл for - цикл выполняется пока переменная i=2 не станет больше переменной а, прикаждой итерации(шаг) переменная i увеличивается на 1 begin if (a mod i=0) then b:=b+1; if условие если a mod i=0 истино, то выполняется b:=b+1 //mod -остаток от деления //a mod i=0 если при делении a на i остаток будет равен 0, то условие истино end; a:=a+1; //увеличение переменной a на 1 end; writeln(a); вывод переменной a end.
код находящийся между begin
end; это тело цикла или условия, и данный кусок программы выполняется до end; и после этого снова обращается к строчке перед begin
5 - 1 = 4
4 - 1 = 3
3 * 3 = 9
9 * 3 = 27
27 -1 = 26