Трогать разъемы соединительных кабелей и проводов
прикасаться к питающим проводам и устройствам заземления
прикасаться к экрану и к тыльной стороне монитора, клавиатуры
работать в верхней одежде и влажными руками
при появлении запаха гари необходимо немедленно прекратить работу, выключить
аппаратуру и сообщить об этом преподавателю
необходимо следить за исправностью аппаратуры и немедленно прекращать работу при
появлении необычного звука или самопроизвольного отключения аппаратуры
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
Хоть мне и 10 лет и мы не проходили эту тему,а я как юный "программист" который учиться всему что можно - пытался 30 минут сделать за тебя информатику. держи,надеюсь устроит.
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.
Наверное так: из уменьшаемого вычесть вычетаемое