1.
Program suma;
Var a, b, sum, i:integer;
begin
read(a);
read(b);
for i:=a to b do sum:=sum+i;
write(sum);
end.
2.
Program multip;
Var a, b, m, i:integer;
begin
m:=1;
read(a);
read(b);
for i:=a to b do m:=m*i;
write(m);
end.
3.
Program suma2;
Var a:array [1..5] of integer;
i, sum:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
sum:=sum + a[i] * a[i];
write(sum);
end.
4.
Program cnt_nopos;
Var a:array [1..5] of integer;
i, cnt:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
if a[i] < 0 then Inc(cnt);
write(cnt);
end.
5.
Var a:array [1..5] of integer;
i, max:integer;
begin
for i:=1 to 5 do read(a[i]);
max:=a[1];
for i:=1 to 5 do
if a[i] > max then
max:=a[i];
write(max);
end.
Лестница:
нц 7 раз
вниз
закрасить
нц 2 раз
вправо
закрасить
кц
кц
конец
Доска:
нц 4 раз
закрасить
вниз
вниз
кц
вправо
вверх
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
<span>кон</span>
A) writeln(c);
б) var a, s: integer;
в) r := p - q;
2. а)
9
53 (после writeln происходит переход на новую строку, после write - нет)
2. б)
8
5-35+1=6
1 - D
2- C
3 - B
4 - A
Если это письмо/файлы получены от неизвестного источника
program raf105;
const
n = 7;
var
a:array[1..n] of integer;
i,x,y: integer;
z: boolean;
begin
write('Введите 2 числа. Минимальное и максимальное: ');
readln(x,y);
writeln('Заполните массив из ',n,' элементов');
for i:=1 to n do
readln(a[i]);
write('Изменённый массив: ');
for i:=1 to n do
begin
if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)
then begin
a[6]:= a[i];
a[i]:= i;
z:= True;
end;
write(a[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>