Перевод из аналога в цифру. запись мнговенных значений аналогового сигнала с определённой частотой
Это команды, или комплекс команд понятных исполнителю, которые необходимы для выполнения желаемой цели
Да можно потому что таблица занимает свое место. крч не могу обьЯсни ть
Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.
Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.