<u>Функции памяти.</u>приём информации из других устройств<em />;запоминание информации;выдача информации по запросу в другие устройства машины.
Var number:integer;
digit:integer;
res:boolean;
begin
readln(number);
digit:=number mod 10;
number:=number div 10;
res:=true;
while number>0 do begin
if digit<>number mod 10 then begin
res:=false;
break;
end;
number:=number div 10;
end;
if res then writeln('Верно') else writeln('Неверно');
end.
Y2 = 2, так как условие с каждым разом выдаёт один и тот же результат.
y2 = 0,5*(2 + x/2)
y1 = 2
y2 = 0,5*(2 + x/2)
y1 = 2
y2 = 0,5*(2 + x/2)
y1 = 2
....
Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.
Подобные этим паролям:
Parol_43
Shapka_7
13_Moroz