На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5
Их большое количество. Телефон например, компьютер, электронная книга, карта памяти.
Program kvur;
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (d>0) then begin
writeln('D>0 => уравнение имеет 2 действительных различных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 => уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('D<0 => уравнение не имеет действительных корней');
end.
Const n = 15;
var a: array[1..n] of integer;
i, j, m: integer;
begin
// генерация и вывод
randomize;
for i := 1 to n do a[i] := Random(19)-8;
for i := 1 to n do write(a[i], ' ');
writeln;
// Сортировка
for i := 1 to n-1 do begin
m := i;
for j := i+1 to n do
if a[j] < a[m] then m := j;
if m <> i then begin
j := a[m];
a[m] := a[i];
a[i] := j;
end;
end;
for i := 1 to n do write(a[i], ' ');
writeln;
// поиск наибольшей разности
m := a[2] - a[1];
for i := 3 to n do
if a[i] - a[i-1] > m then
m := a[i] - a[i-1];
writeln ('разность = ', m);
<span>end.</span>