begin Write('Введите двухзначное число: '); Read(n); n:=Abs(n); { убираем минус, если он есть } Writeln('Среднее арифметическое цифр числа: ', (n div 10 + n mod 10)/2) end.
Пример Введите двухзначное число: 43 Среднее арифметическое цифр числа: 3.5
№2
var n:integer;
begin Write('Введите двухзначное число: '); Read(n); n:=Abs(n); { убираем минус, если он есть } Writeln('Разность количества десятков и единиц равна ',n div 10 - n mod 10) end.
Пример Введите двухзначное число: 38 Разность количества десятков и единиц равна -5
№3
var a:real;
begin Write('Площадь, ар: '); Read(a); Writeln('Полных кв.км: ',Trunc(a/10000)) end.
begin Write('Введите вес в золотниках: '); Read(z); kf:=z div 96; z:=z mod 96; kp:=kf div 40; kf:=kf mod 40; kb:=kp div 10; kp:=kp mod 10; Writeln('Это составит ',kb,' берковцев, ',kp,' пудов, ', kf,' фунтов, ',z,' золотников') end.
Пример Введите вес в золотниках: 374252 Это составит 9 берковцев, 7 пудов, 18 фунтов, 44 золотников
Const n = 5; var i: integer; a: array[1..n * 2 + 1] of integer; begin writeln('исходный массив: '); for i : = 1 to 2 * n do begin a[i] : = random(99) + 1; write(a[i] : 5); end; for i : = 2 * n + 1 downto n + 1 do a[i] : = a[i - 1]; a[n + 1] : = 0; writeln(); writeln('полученный массив: '); for i : = 1 to 2 * n + 1 do write(a[i] : 5); end.
Информационные модели среди них,это:схема,карта,глобус.