// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadlnString.Sorted.TakeLast(2).ToArray;
Writeln(StrToInt(a[0])+StrToInt(a[1]));
end.
<u><em>Тестовое решение:</em></u>
324576854532
15
Смотри вложение
...........................
Var
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.
Информационный вес символьной информации: 60х40=2400 байтИнформационный вес изображения: 240х300x3=216000 бит (3 - количество бит, требуемое для кодирования 8 цветов: 2^3=8)216000 бит = 27000 байтОбщая сумма: 27000+2400=29400 байт
№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>