Var i:integer; begin //Первый for i:= -10 to 10 do begin writeln('При x = ', i, ' y = ', 3*i-5*i*i); end; //Второй i:= -10; while(i <= 10) do begin writeln('При x = ', i, ' y = ', 3*i-5*i*i); i:= i + 1; end;
CD/DVD-привод Флоппи-привод Клавиатура Винчестер или накопитель внутренний Опять же флоппи-дисковод наверно Видеокарта Звуковая карта Сетевая карта Да Временная память компьютера сохраняет необходимые для запуска и корректной работы приложений файлы Хранение информации Обработка задач Нет Да Перечень накопителей подключенных к пк Документы - Удаленные файлы Хер ее знает. Удаляет безвозвратно может - Панель управления Клик пкм-создать-выбрать что создать Тоже самое только выбрать создать ярлык Тоже самое только выбрать создать папку Пкм на предмет-переименовать Не приводит Уже выше написал - - Для быстрого запуска программы
Var n,m,osn: integer; function nmbdec(var n,osn: integer): integer; var nmb,l,s,k: integer; begin nmb:=0; s:=0; k:=n; l:=1; while k>0 do begin s:=k mod 10; k:=k div 10; nmb:=nmb+l*s; l:=l*osn; end; Result:=nmb; end; { конец функции} begin write('число: '); readln(n); write('квадрат какого числа: '); readln(m); osn:=10; while osn>=2 do begin osn:=osn-1; if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then begin writeln('основание системы = ',osn); break; end; end; end.
begin
//Первый
for i:= -10 to 10 do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
end;
//Второй
i:= -10;
while(i <= 10) do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
i:= i + 1;
end;
end.