Procedure SolveLinear;
var
k, x, b, y: real;
begin
write('k=');
readln(k);
write('x=');
readln(x);
write('b=');
readln(b);
y := k * x + b;
writeln('y=kx+b=', y);
end;
На гибких магнитных дисках (дискетах).
Остальные носители, CDRom, USB-Flash, HDD, обычно защищены от такого.
program yaneznayupascal;
procedure PS;
var m, n, S, P : integer;
begin
write('Введите число m (длина): ');
readln(m);
write('Введите число n (ширина): ');
readln(n);
S := m*n;
P := 2*m+2*n;
write('S = ', S);
write('P = ', P);
end;
begin
PS;
end.
1
1.Для оповещение слабовидящих пешеходов о возможности осуществить переход через дорогу светофоры "Оснащают"<span>А.Динамиками </span>