1.
var n,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+i*i;
writeln('s = ',s);
end.
Пример:
2
5
2.
var n,i,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(f);
end.
Пример:
3
6
3.
var n,i,f:integer; s:real;
begin
readln(n);
s:=1;
f:=1;
for i:=1 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln(s:6:4);
end.
Пример:
3
2.6667
4.
var i:integer;
begin
for i:=1 to 9 do
writeln(9,' * ',i,' = ',9*i);
end.
Результат:
9 * 1 = 9
9 * 2 = 18
9 * 3 = 27
9 * 4 = 36
9 * 5 = 45
9 * 6 = 54
9 * 7 = 63
9 * 8 = 72
9 * 9 = 81
Странно, вроде уже отвечал...
// Задание №1
var a,b,c:real;
begin
writeln('Введите длины сторон треугольника');
readln(a, b, c);
if (a=b) and (b=c) and(a>0) then
writeln('Равносторонний')
else
writeln('Не равносторонний');
end.
//Задание №2
var
a, b, i, s: integer;
begin
writeln('Введите левую границу диапазона');
readln(a);
writeln('Введите правую границу диапазона');
readln(b);
s := 0;
for i := a to b do
if i mod 2 <> 0 then s := s + i;
writeln('Сумма Нечетных:', s);
end.
Uses System;
Var in, out : text;
line, col : integer;
k : integer;
begin
Assign(in, "nome.in");
Assign(out, "nomer.out");
Reset(in);
Rewrite(out);
Read(in, line, col, k);
if k < col * line theb
begin
Write(out, (k - 1) div col + 1, ' ', (k - 1) mod col + 1);
end
else
Write(out, "слишком большое число")
end;
close(in);
close(out);
end.
Расставляем соответствия по формату
1-d
2-c
3-b
4-a