паскаль ))составить программу, которая по дню выводит время приёма врача Дни недели Часы приёма Понедельник, вторник 8.30-14.30 Среда, четверг 13.00-19.00 Пятница 11.30-17.30 суббота 9.30-13.30 воскресенье Приёма нет
Procedure convert ( x: integer ); var s: string; k, error, len: integer; element: array[1..20] of real; i, rez: real; const N = -2; begin s := IntToStr(x); len := length(s); if len = 0 then writeln('Ошибка!') else begin i := 0; rez := 0; for k := 1 to len do val(s[k], element[k], error); for k := 1 to len do begin i := element[k] * power( N, len - k ); rez := rez + i; end; writeln(rez); end; end;
var numeric: integer; begin write('Введите двоичное число для перевода в систему счисления с основанием (-2): '); readln(numeric); write('ответ: '); convert(numeric); end.
Const Gl=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я', 'а','е','ё','и','о','у','ы','э','ю','я']; var s,fam,otch:string; i,j,n,nGl:integer; begin Writeln('Введите через один пробел фамилию, имя и отчество'); Readln(s); fam:=''; i:=1; n:=Length(s); repeat fam:=fam+s[i]; i:=i+1 until s[i]=' '; otch:=''; j:=n; repeat otch:=s[j]+otch; j:=j-1 until s[j]=' '; { im:=Copy(s,i+1,j-i-1); так можно получить имя } nGl:=0; for i:=1 to n do if s[i] in Gl then nGl:=nGl+1; Writeln('Длина введенной строки в символах равна ',n); Writeln('Количество гласных букв в строке равно ',nGl); Writeln('Введено отчество: ',otch); Writeln('Количество букв в фамилии равно ',Length(fam)) end.
Тестовое решение: Введите через один пробел фамилию, имя и отчество Иванов Петр Сергеевич Длина введенной строки в символах равна 21 Количество гласных букв в строке равно 8 Введено отчество: Сергеевич Количество букв в фамилии равно 6
var s: string;
k, error, len: integer;
element: array[1..20] of real;
i, rez: real;
const N = -2;
begin
s := IntToStr(x);
len := length(s);
if len = 0 then writeln('Ошибка!')
else
begin i := 0;
rez := 0;
for k := 1 to len do val(s[k], element[k], error);
for k := 1 to len do
begin
i := element[k] * power( N, len - k );
rez := rez + i;
end;
writeln(rez);
end;
end;
var numeric: integer;
begin
write('Введите двоичное число для перевода в систему счисления с основанием (-2): ');
readln(numeric);
write('ответ: ');
convert(numeric);
end.