{ Использован код горизонтальной табуляции 09 для выравнивания вывода } var a,b,h,x:real; begin Write('введите a,b,h: '); Read(a,b,h); x:=a; while x<=b do begin Writeln(x,#09,#09,4*sin(x*x)+cos(x)); x:=x+h end end.
Задачи 1,2,4: / PascalABC.Net 3.0, сборка 1066 var n:BigInteger; begin var s:=ReadlnString('Введите натуральное число: '); If BigInteger.TryParse(s,n) then begin var c:=ReadChar('Введите проверяемую цифру: '); Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз'); Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct); Writeln('Перевертыш: ',s.Inverse); end else Writeln('Ошибка при вводе числа') end.
Тестовое решение: Введите натуральное число: 355678679650768680078676985643546809678546263435 Введите проверяемую цифру: 4 4 встречается в 355678679650768680078676985643546809678546263435 4 раз Максимальная цифра числа: [9] Перевертыш: 534362645876908645346589676870086867056976876553
Задача 3 // PascalABC.Net 3.0, сборка 1066 begin var m:int64:=-1; var n:int64:=0; Writeln('Принимаются неотрицательные целые числа'); while (n>=0) and (m<n) do begin m:=n; n:=ReadInteger('Введите число: ') end; if m>=n then Writeln('Последовательность невозрастающая') else Writeln('Последовательность возрастающая') end.
09 для выравнивания вывода }
var
a,b,h,x:real;
begin
Write('введите a,b,h: '); Read(a,b,h);
x:=a;
while x<=b do begin
Writeln(x,#09,#09,4*sin(x*x)+cos(x));
x:=x+h
end
end.
Пример
введите a,b,h: -2.15 1.7 0.38
-2.15 -4.53120848610505
-1.77 -0.163118638139122
-1.39 3.92156008975769
-1.01 3.9405021385098
-0.63 2.35427225489945
-0.25 1.21874969308017
0.13 1.05915867588807
0.51 1.90145326606337
0.89 3.47673114723651
1.27 4.29273595805526
1.65 1.54860630059752