//PascalABC.Net function DelWord(s:string):string; var i,n:integer; begin n:=length(s); i:=n; repeat if i>=1 then Dec(i); until s[i]=' '; Delete(s,i+1,n-i); DelWord:=s end;
var st:string; begin Write('Введите строку: '); Readln(st); Writeln('Результат: ',DelWord(st)) end.
Тестовое решение: Введите строку: А роза упала на лапу Азора Результат: А роза упала на лапу
//PascalABC.Net function DescDigits(s:string):boolean; var desc:boolean; i,n:integer; c1,c2:char; begin n:=length(s); desc:=true; c1:='A'; { главное, чтобы символ был "старше" любой цифры } i:=1; repeat c2:=s[i]; if c2 in ['0'..'9'] then if c2<c1 then c1:=c2 else desc:=false; Inc(i) until (i>n) or (not desc); DescDigits:=desc end;
var s:string; begin Write('Введите строку: '); Readln(s); if DescDigits(s) then Writeln('true') else Writeln('false') end.
Тестовое решение: Введите строку: Пример строки с цифрами 98 по убыванию 7 6,5, так4тоже1можно! true
Вариант первой программы для Borland Pascal 7.01 uses Crt; function DelWord(s:string):string; var i,n:integer; begin n:=length(s); i:=n; repeat if i>=1 then Dec(i); until s[i]=' '; Delete(s,i+1,n-i); DelWord:=s end;
var st:string; begin ClrScr; Write('Введите строку: '); Readln(st); Writeln('Результат: ',DelWord(st)); ReadKey end.
var mas: array [1..10] of integer; i,a: integer; begin clrscr; writeln('Input massive'); a:=0; for i:=1 to 10 do begin readln(mas[i]); if (i mod 2 =0) and (mas[i] < 0) then a:=a+1; end; writeln('Answer ',a); end.
number 2
uses crt;
var mas: array [1..10] of integer; i,a,k: integer; begin clrscr; writeln('Input massive'); for i:=1 to 10 do readln(mas[i]); i:=1; while (mas[i]<>0) and (i<10 ) do i:=i+1; k:=1; if i < 10 then begin for a:=i to 10 do k:=k*mas[a]; writeln(k); end else writeln('Nulya net');
228 б = 2.7179718017578E-5 МБ