1. Проанализируйте работу программы.
program math;
var x, y: integer;
begin
x:=1;
y:=1
while x<7 do
begin
y:=y*2;
x:=x+1
end;
end.
ответьте на во Сколько раз исполнится тело цикла?
2) Какое значение примет x после завершения программы?
3) Какое значение примет y после завершения программы?
4) Сколько раз исполнится тело цикла, если изменить условие на x<=7?
5) Сколько раз исполнится тело цикла, если изменить условие на x>7?
6) Сколько раз исполнится тело цикла, если изменить условие на x>0?
7) Что произойдет, если из тела цикла убрать команду x:=x+1?
8) Сколько раз исполнится тело цикла, если изменить команду x:=x+1 на x:=x+2?
9) Сколько раз исполнится тело цикла, если изменить команду x:=x+1 на x:=x+2?
ответ:Компьютерлік жады (сыртқы немесе қосалқы жады, ақпараттарды сақтауға арналған құрал, сақтағыш құрал) — белгілі бір уақытта есептеуде қолданылатын, ақпарат сақтауға арналған физикалық құрылғы немесе орта болатын, есептегіш машина бөлігі. Жады 1940-ыншы жылдардан бері орталық процессор секілді, компьютердің маңызды бөліктеріне жатады. Есептеуіш құралдардағы жады иерархиялық құрылымды болады және ол әртүрлі қасиеттері бар бірнеше сақтағыштарды (жаттағыш) қолдануды білдіреді. Көбінесе персоналды (жеке) компьютерлерде «жады» деп оның бір бөлігі — кездейсоқ рұқсатты (ДРАМ) динамикалық жадыны — қазіргі уақытта жеке компьютерлер жедел жады ретінде қолданылатын жадыны айтады.
Объяснение:
9*3*N - не может быть больше 54, т.е.
N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа).
Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.
var n,m: integer;
begin
write('n = '); readln(n);
if n=2 then
begin m:=11;
repeat
if (m mod 10)*(m div 10)*3=m then
begin
writeln('число: ',m);
m:=55;
end;
m:=m+1;
until m>54;
end
else writeln('нет решения');
end.