Напишите программу на языке паскаль, которая вычесляет сумму: а) первых n натуральных чисел; б) квадратов первых n натуральных чисел; в) всех чётных чисел в диапазоне от 1 до n; г) всех двузначных чисел.
for i := 1 to n do begin s1 := s1 + i; s2 := s2 + sqr(i); if i mod 2 = 0 then s3 := s3 + i; end;
for i := 10 to 99 do s4 := s4 + i;
writeln('Сумма первых n натуральных чисел: ', s1); writeln('Сумма квадратов первых n натуральных чисел: ', s2); writeln('Сумма всех четных чисел: ', s3); writeln('Сумма всех двухзначных чисел: ', s4); end.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin // вводим строку, перекодируем к нижнему регистру и делим на два слова var a:=ReadlnString.ToLower.ToWords; var (n1,n2):=(a[0].Length,a[1].Length); // длины слов if n1<>n2 then begin Writeln('No'); exit end; for var i:=1 to n1 do begin var p:=Pos(a[0][i],a[1]); if p=0 then begin Writeln('No'); exit end; Delete(a[1],p,1) end; Writeln('Yes') end.
i, s1, s2, s3, s4, n: integer;
begin
write('n = ');
readln(n);
s1 := 0;
s2 := 0;
s3 := 0;
s4 := 0;
for i := 1 to n do
begin
s1 := s1 + i;
s2 := s2 + sqr(i);
if i mod 2 = 0 then s3 := s3 + i;
end;
for i := 10 to 99 do s4 := s4 + i;
writeln('Сумма первых n натуральных чисел: ', s1);
writeln('Сумма квадратов первых n натуральных чисел: ', s2);
writeln('Сумма всех четных чисел: ', s3);
writeln('Сумма всех двухзначных чисел: ', s4);
end.