В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за с начала учёбы семестров (Dat[1] — оценка за первый семестр, Dat[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма. Var k, m, term: integer; Dat: array[1...10] of integer; Begin Dat[1] := 7; Dat[2] := 7; Dat[3] := 6; Dat[4] := 8; Dat[5] := 4; Dat[6] := 5; Dat[7] := 4; Dat[8] := 7; term:=1 m := Dat[1]; for k := 2 to 8 do if Dat[k] < m then begin m:= Dat[k]; term := k; end; writeln(term); End.
Введите ответ

Квадрат разлинован на N×N клеток (1 < N < 17). Исполнитель Робот может перемещаться по клеткам, выполняя за одно перемещение одну из двух команд: вправо или вниз. По команде вправо Робот перемещается в соседнюю правую клетку, по команде вниз – в соседнюю нижнюю. При попытке выхода за границу квадрата Робот разрушается. Перед каждым запуском Робота в каждой клетке квадрата лежит монета достоинством от 1 до 100. Посетив клетку, Робот забирает монету с собой; это также относится к начальной и конечной клетке маршрута Робота.

Определите максимальную и минимальную денежную сумму, которую может собрать Робот, пройдя из левой верхней клетки в правую нижнюю.

В ответе укажите два числа – сначала максимальную сумму, затем минимальную.

Исходные данные представляют собой электронную таблицу размером N×N, каждая ячейка которой соответствует клетке квадрата.

1)x = (input('x= '))

y = (input('y= '))

z = (input('z= '))

c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))

print(

else:

print

2)uses crt;

var x,y:real;

   f1,f2:boolean;

begin

clrscr;

writeln('Введите 2 числа:');

readln(x,y);

f1:=(x>2)and(y>3);

f2:=(x>1)and(y>-2);

writeln(f1);

write(f2);

readln

end.

3)uses crt;

var a,r:real;

begin

clrscr;

write('Введите сторону квадрата и радиус круга-> ');

readln(a,r)

if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');

readln;

end.

5)uses crt;

Var a, i, n, S: integer;

Begin

Write('Vvedite n '); readln(n);

S:=0;

For i:=40 to 140 do

 begin

 read(a);

 if (a mod 6 =0) then S:=S+a;

 end;

Writeln(S);

End.