Ответы
Ответ дал:
0
1. Обыкновенное современное решение с лямбда-выражением (разновидность функции)
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k,m:integer;
Write('Введите k,m: '); Read(k,m);
Writeln('S=',Range(k,m).Select(i->i*i).Sum)
end.
Пример
Введите k,m: 3 6
S=86
2. Школьное решение в стиле ТурбоПаскаль 1983г. без всяких функций
uses Crt;
var k,m,s,i:integer;
begin
s:=0;
Write('Введите k,m: '); Read(k,m);
for i:=k to m do s:=s+i*i;
Writeln('S=',s);
ReadKey
end.
3. Школьное решение в стиле ТурбоПаскаль 1983г c функцией
Uses Crt;
function Sum(k,m:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=k to m do s:=s+i*i;
Sum:=s
end;
var k,m:integer;
begin
Write('Введите k,m: '); Read(k,m);
Writeln('S=',Sum(k,m));
ReadKey
end.
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k,m:integer;
Write('Введите k,m: '); Read(k,m);
Writeln('S=',Range(k,m).Select(i->i*i).Sum)
end.
Пример
Введите k,m: 3 6
S=86
2. Школьное решение в стиле ТурбоПаскаль 1983г. без всяких функций
uses Crt;
var k,m,s,i:integer;
begin
s:=0;
Write('Введите k,m: '); Read(k,m);
for i:=k to m do s:=s+i*i;
Writeln('S=',s);
ReadKey
end.
3. Школьное решение в стиле ТурбоПаскаль 1983г c функцией
Uses Crt;
function Sum(k,m:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=k to m do s:=s+i*i;
Sum:=s
end;
var k,m:integer;
begin
Write('Введите k,m: '); Read(k,m);
Writeln('S=',Sum(k,m));
ReadKey
end.
Ответ дал:
0
Хорошо видно нарастание объема программы. Функция в последнем варианте ничего не дала, кроме дополнительной писанины.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад