Program figna ; {это название} var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые} begin {начало} writeln('введите три числа'); {запрос чисел} readln(a,b,c); {ввод чисел} d:=a*b*c; {умножаем числа и присваиваем d их значение} if (d<50) then {если произведение чисел меньше 50 то} a:=a*10; {первое число умножаем на десять} b:=b*10; {второе число умножаем на десять} c:=c*10; {третье число умножаем на десять} writeln(a); {выводим первое} writeln(b); {выводим второе} writeln(c); {выводим третье} else {иначе} writeln(d); {выводим произведение} end. {конец} P.S. этот символ { } паскаль не читает и означает он коментарий
Попробуем сделать сортировку букв латинского алфавита.
const n = 20; var a: array[1..n] of char; i, j: integer; t: char;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := Chr(random(26)+Ord('A')); Write(a[i],' ') end; Writeln; for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i],' '); Writeln end.
Тестовое решение: Исходный массив G Z L H X A R E C F G X O T C L N U D L Отсортированный по возрастанию массив A C C D E F G G H L L L N O R T U X X Z
var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые}
begin {начало}
writeln('введите три числа'); {запрос чисел}
readln(a,b,c); {ввод чисел}
d:=a*b*c; {умножаем числа и присваиваем d их значение}
if (d<50) then {если произведение чисел меньше 50 то}
a:=a*10; {первое число умножаем на десять}
b:=b*10; {второе число умножаем на десять}
c:=c*10; {третье число умножаем на десять}
writeln(a); {выводим первое}
writeln(b); {выводим второе}
writeln(c); {выводим третье}
else {иначе}
writeln(d); {выводим произведение}
end. {конец}
P.S. этот символ { } паскаль не читает и означает он коментарий