var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
1)var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write((a[1]+a[2])/2);
end.
2) var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write(a[2]-a[1]);
end.
3) var
n,m:Integer;
begin
Read(n);
m:=n div 1000;
Write(m,'кг',' ',n-m*1000,'г' );
end.
4)var
n,m:Integer;
begin
Read(n);
m:=n div 10000;
Write(m,'километров квадратных');
end.
1 - 2
2- 1
3- 3
4- 4
5- 5
Вроде так мы такое не изучали
Если что без обид
1-векторный, 2- растровый