Function getSumFor(n:integer):integer;var sum, i:integer;begin sum := 0; for i:=1 to n do begin sum := sum + i; end; result := sum;end; function getSumWhile(n:integer):integer;var sum, i:integer;begin sum := 0; i := 1; while i <= n do begin sum := sum + i; i := i + 1; end; result := sum;end; function getSumRepeat(n:integer):integer;var sum, i:integer;begin i := 1; sum := 0; repeat sum := sum + i; i := i + 1; until i > n; result := sum;end; begin writeln(getSumFor(1)); writeln(getSumWhile(1)); writeln(getSumRepeat(1));end.
1) a) не может, потому что переменные должны всегда начинаться с буквы b) может c) не может, слова могут быть разделены только знаком "_",не пробелом! d) может
2) присваивание, обозначается знаком "=" Например: sum = 0;
3) 4 строка - не red, а read пропущена трока между 2 и 3 строчкой - это begin
4) var S, P, a, b: integer begin write('Введите сторону а: '); readln(a); write('Введите сторону b: '); readln(b);
S = a * b; {нахидим площадь} P = (a + b) * 2; {находим периметр}
1) a) не может, потому что переменные должны всегда начинаться с буквы b) может c) не может, слова могут быть разделены только знаком "_",не пробелом! d) может
2) присваивание, обозначается знаком "=" Например: sum = 0;
3) 4 строка - не red, а read пропущена трока между 2 и 3 строчкой - это begin
4) var S, P, a, b: integer begin write('Введите сторону а: '); readln(a); write('Введите сторону b: '); readln(b);
S = a * b; {нахидим площадь} P = (a + b) * 2; {находим периметр}
function getSumWhile(n:integer):integer;var sum, i:integer;begin sum := 0; i := 1; while i <= n do begin sum := sum + i; i := i + 1; end; result := sum;end;
function getSumRepeat(n:integer):integer;var sum, i:integer;begin i := 1; sum := 0; repeat sum := sum + i; i := i + 1; until i > n; result := sum;end;
begin writeln(getSumFor(1)); writeln(getSumWhile(1)); writeln(getSumRepeat(1));end.