Question

Составьте программу которая определяет а)сумма квадратов чисел в диапазоне от 1 до n б) количество натуральных чисел не превышающих 50 и кратных 3 в)сумма квадратов натуральных чисел от 10 до 27

Answer 1

a)
Progran hhh54;
var i,n,s:longint;
begin
  s:=0;
  read (n);
  for i:=1 to n do;
    s:=s+i*i;
  write (s);
end.

б)
Progran hhh54;
var i,k:longint;
begin
  k:=0;
  for i:=1 to 50 do;
    if i mod 3=0 then k:=k+1;
  write (k);
end.

в)
Progran hhh54;
var i,s:longint;
begin
  s:=0;
  for i:=10 to 27 do;
    s:=s+i*i;
  write (s);
end.

Answer 2

Спасибо большое)