Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.
var a, b, c: integer;
begin
writeln('Введите три целых числа:');
readln(a, b, c);
if (a > 17) and (b > 17) and ( c > 7 ) then
writeln('да')
else
writeln('нет');
readln();
end.
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
var a, b, c, x : integer;
var a, b, c, x : integer;
begin
writeln('Введите три целых числа:');
readln(a, b, c);
if (b > c) then
begin
x := b;
b := c;
c := x;
end;
if (a > b) and (a < c) then
writeln('да')
else
writeln('нет');
readln();
end.
Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".
var a, b : integer;
begin
writeln('Введите два целых числа');
readln(a, b);
if (a > b) then
writeln('"', 12, '"')
else
writeln('"', 888, '"');
readln();
end.
var a, b, c, d : integer;
begin
writeln('vvedite a, b, c, d');
readln(a, b, c, d);
if (a > b) then
if (a > c) then
begin
if (a > d) then
writeln ('Выбираем a');
writeln ('Может выбрали a');
end;
readln();
end.
Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга, если среди есть неуникальные элементы, то удалите их, сдвинув значения влево, заполняя оставшиеся справа ячейки нулями.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для:
Выведите на экран таблицу умножения используя один цикл while и один repeat-until .
var i, j: integer;
begin
i := 1;
repeat
j := 1;
while j <= 9 do
begin
write (i,'*',j,'=',i*j,' ');
writeln();
j := j +1;
end;
i := i + 1;
until i > 9;
readln();
end.