1)
var
a, b, c: real;
IDE: boolean;
begin
IDE:= false;
writeln('Введите 2 числа');
readln(a, b);
c:= a;
if (IDE = false) and (a < b) then
begin
a:= a + b;
b:= c * b;
IDE:= true;
writeln('a = ', a, ', b = ', b);
end;
if (IDE = false) and (b < a) then
begin
a:= a * b;
b:= a + b;
IDE:= true;
writeln('a = ', a, ', b = ', b);
end;
if (IDE = false) and (a = b) then
begin
writeln('Числа равны');
IDE:= true;
end;
end.
2)
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a < b then a:= 0;
writeln('a = ', a, ', b = ', b);
end.
3)
var
k, b: real;
begin
writeln('Введите цену журнала');
readln(k);
writeln('Введите, сколько у покупателя денег');
readln(b);
if b > k then writeln('Покупатель получит ', b - k, ' р сдачи');
if b = k then writeln('Покупатель не получит сдачи');
if b < k then writeln('Покупателю придется доплатить ', k - b, ' р');
end.
4)
var
a: 100000..999999;
a1, a2, a3, a4, a5, a6: 1..9;
begin
writeln('Введите шестизначное число');
readln(a);
a1:= a div 100000;
a2:= (a mod 100000) div 10000;
a3:= (a mod 10000) div 1000;
a4:= (a mod 1000) div 100;
a5:= (a mod 100) div 10;
a6:= a mod 10;
if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln('Число является счастливым')
else writeln('Число не является счастливым');
end.
5)
var
a, b: integer;
begin
writeln('Введите числа A и B');
readln(a, b);
if b mod a = 0 then writeln('Число ', a, ' является делителем числа ', b)
else writeln('Число ', a, ' не является делителем числа ', b);
end.
Если все правильно, отметь решение как лучшее)
Если возникнут вопросы - задавай
var
A: array [1..12] of integer; //Одномерный массив из 12 целых чисел
i: integer;
begin
for i:= 1 to 12 do //Вводим элементы массива с клавиатуры
begin
writeln('Введите A[', i, ']');
readln(A[i]);
end;
write('Исходный массив: '); //Выводим исходный массив
for i:= 1 to 12 do
write(A[i], ' ');
writeln; //Перевод на новую строку
write('Измененный массив: ');
for i:= 1 to 12 do {Изменяем все положительные элементы на 5 и распечатываем полученный массив}
begin
if A[i] > 0 then A[i]:= 5;
write(A[i], ' ');
end;
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Если все правильно, отметь решение как лучшее)