Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
1) Скорее всего "завершить"
2) "ползунок" (Полосы прокрутки)
3) "экспорт"
4) строка "состояния"
5) панель "инструментов"
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
h = 30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT(((a(n)) - 6 )/ 10) = (((a(n)) - 6) / 10) AND a(n)<h THEN h = a(n)
NEXT i
PRINT h
END