Программа на паскале нужна?
program pro;
var S,V,Result:integer;
begin
readln(S,V);
Result:=S-V;
writeln(Result);
end.
Ответ:
program SubStrings;
uses
SysUtils, StrUtils;
var
s, w: AnsiString;
i, iw, iMax: Integer;
setN: Set Of Char;
begin
setN := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-'];
Write ('Введите строку: ');
ReadLn (s);
w := '';
iMax := 0;
WriteLn;
for i := 1 to Length (s) do begin
if w = '' then begin
if s [i] in setN then begin
w := w + s [i];
end
end else begin
if s [i] in setN then begin
w := w + s [i];
end else begin
iw := StrToInt (w);
Write (iw, ' '); // для вывода "очищенной" строки, нужно при проверке
if iw > iMax then
iMax := iw;
w := '';
end;
end;
end;
WriteLn;
WriteLn ('Максимальное число = ', iMax);
ReadLn;
end.
Ввода: микрофон, джойстик, цифровой микроскоп, дисковод, веб камера, цифровой фотоаппарат
Вывода: видеопроектор, плоттер
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.