N:=0;

for i:=1 to 10 do

if a[i]=50 then n:=i;

if n=0 then write ('Нет') else write (i)

Запишите полный текст программы и выполните ее на компьютере.

Задание Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ: 1. k:=20; k:=k+10; if k+1030 then k:=8 else k:=k-1; WriteLn (k) Ответ: 2. k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k) Ответ: 3.

2) являются ли условными операторами след. последовательности символов: a) if x < y then x : = 0 else y : = 0; b) if x > y then x : = 0 else read (y) ; d) if a < b then 100 else z : = 25;

1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.

Найдите ошибки в следующих операторах и запишите исправленные операторы. а) begin if x ²

Нужна помощь с кодом Pascal. If k11 = k12 then Begin If k12 = k13 then Begin If k12 = 'х ' then goto win1 Else goto win2; End; End; Else goto showp1; Выдает ошибку на последнем Else Program1. pas (132) : Встречено 'Else', а ожидался оператор