Роман написал программу на языке pascal, фрагмент которой ниже. for i: =0 to 99 do num[i+1] : =i+1; k: =0; i: =1; while k> 7 do begin if easy(num[i])=true then k: =k+1; i: =i+2; end; write(num[i-2]); в программе он использовал две целочисленные переменные i и k , целочисленный массив num из ста элементов, с индексами от 1 до 100. также роман определил функцию easy() логического тип данных, которая возвращает истинное значение в случае, если переданный в нее целочисленный аргумент является простым числом , и ложное значение - в противном случае. какое число будет выведено в результате выполнения этой программы?
Ответы
1.
составной оператор - это скобки begin...end (в С образных языках для это используются реальные скобки {}) которые позволяют объединить несколько команд под одним оператором
if a > b then begin
с:=1;
d:=2;
end
else begin
c:=3;
d:=4;
end
2.
var
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.
var
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Простые числа - 2, 3, 5, 7, 11, 13, 17, 19, ...
Расчет по программе - в прилагаемом файле.
На экран выведется значение num[21-2] = num[19] = 19
ответ: 19