СХЕМА ВО ВЛОЖЕНИИ
var
x,y:real;
begin
readln(x);
if x<0 then writeln('не существует')
else
begin
  y:=2*x*sqrt(x+sqrt(x));
Writeln('x: ',x:4:2,' y: ',y:4:2) ;
if (x>=0)and(x<=2)and(y>=0)and(y<=1)then    writeln('принадлежит')
  else
writeln('не принадлежит')
end;
<span>end.
</span><span>
</span>

0 0

4 года назад

Поиск числа Помогите решить паскалем

Ольга Петровна Ко... [7]

Ответ:

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;

WriteLn;

WriteLn ('Максимальное число = ', iMax);

ReadLn;

end.

0 0

4 года назад

1.7. Задание с выборочным ответом. В процессе загрузки операционной системы происходит:1) копирование файлов операционной систем

Kolya14 [11]

3 вариант ответа при загрузке операционной системы

0 0

4 года назад