// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var s:=ReadInteger('n=').ToString; Writeln('Количество цифр, меньших 6, равно ', s.Where(x->x<'6').Count); Writeln('Сумма первой и последней цифры равна ', StrToInt(s[1])+StrToInt(s[s.Length])); Writeln('Сумма самой маленькой и самой большой цифры равна ', StrToInt(s.Min)+StrToInt(s.Max)); end.
Тестовое решение: n= 254904 Количество цифр, меньших 6, равно 5 Сумма первой и последней цифры равна 6 Сумма самой маленькой и самой большой цифры равна 9
uses SysUtils; var a, b, h, s:real; begin writeln('Enter a, b and h'); readln(a, b, h); s:=(0.5*(a+b))*h; writeln('Area of the trapezoid=', s); readln; end.
Программа №2.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses SysUtils; var a, b, s:integer; begin writeln('Enter the price and quantity'); readln(a, b); s:=a*b; writeln('Cost of purchase=', s); readln; end.
Программа №3.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses SysUtils; var a, b, w:real; begin writeln('Enter the speed and time'); readln(a, b); w:=a*b; writeln('Way=', w); readln; end.
Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы. Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).
begin
var s:=ReadInteger('n=').ToString;
Writeln('Количество цифр, меньших 6, равно ',
s.Where(x->x<'6').Count);
Writeln('Сумма первой и последней цифры равна ',
StrToInt(s[1])+StrToInt(s[s.Length]));
Writeln('Сумма самой маленькой и самой большой цифры равна ',
StrToInt(s.Min)+StrToInt(s.Max));
end.
Тестовое решение:
n= 254904
Количество цифр, меньших 6, равно 5
Сумма первой и последней цифры равна 6
Сумма самой маленькой и самой большой цифры равна 9