// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 var n,k,d:integer; begin k:=0; repeat Write('Введите натуральное число, 0- завершить: '); Read(n); if n>0 then begin d:=(n mod 100) div 10; if (d=4) or (d=6) then Inc(k) end until n=0; Writeln('Искомых чисел - ',k) end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var a,b,h,x:real; Write('Введите a b h: '); Read(a,b,h); if a>b then Swap(a,b); // поменять местами if h<=0 then Writeln('Шаг h должен быть положительным') else begin x:=a; while x<=b+h/2 do begin // +полшага на погрешность накопления Writeln('x=',x:0:4,', y=',x>0?1/x-5:2*x); x+=h end end end.
Цифри, великі і малі літери латинського алфавіту