Объяснение:
1) program abc;
var x,y:real;
begin
readln(x,y);
if (x>0) then begin // проверка по x
if (y>0) then
writeln('1th'); // попадает в первую
if (y<0) then
writeln('4th'); // проверка в четвёртую
end
else begin
if (y>0) then
writeln('2nd'); // попадает во вторую
if (y<0) then
writeln('3th'); // попадает в третью
end;
end.
2)
program abc;
var A:array [1..4] of real; // ввод массива из четырёх чисел
i,max,min:shortint; // i - цикл, max - индекс максимального значения, min - минимального
s:real; // сумма
begin
readln(a[1]); // ввод первого значения
max:=1;
min:=1; // считаем что первое значение и минимум и максимум
for i:=2 to 4 do
begin
readln(A[i]); // ввод массива
if A[i]>a[max] then // Если данный элемент больше максимального
max:=i; // То записываем индекс этого элемента
if A[i]<A[min] then // аналогично с минимумом
min:=i;
end;
s:=A[max]+a[min]; // суммируем и выводим
write(s);
end.
const
n = 100;
var
a: array[1..n] of word;
i, m: byte;
sum: word;
begin
write('Kol-vo chisel: ');
readln(m);
sum:=0;
for i:=1 to m do
begin
a[i] := i;
write(a[i]:4);
sum:=sum + sqr(a[i])*a[i];
end;
writeln;
writeln('Sum = ', sum:4);
readln;
end.
2
const
n = 100;
var
a: array[1..n] of word;
i, dn: byte;
km: real;
begin
write('Kol-vo dney: ');
readln(dn);
km:=7;
for i:=2 to dn do
km:=km+(km+1.5);
writeln;
writeln('Turisty proshli ', km:4:1, ' km');
readln;
end.