Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.
Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.
Пользователь вводит два числа, найдите из них максимальное.
program project1;
var a,b: integer;
begin
writeln('vvedite dva celih chisla: ');
readln(a, b);
if (a > b) then
writeln('pervoe bolshe chem vtoroe')
else
writeln('vtoroe bolshe chem pervoe');
readln();
end.
Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.
program project1;
var a,b,c: integer;
begin
writeln('vvedite dva celih chisla: ');
readln(a, b, c);
if (a AND b > 17) then //1 условие
if (c < 7) then //2 условие
writeln('Yes')
else
writeln('No');
readln();
end.
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
program project1;
var a,b,c: integer;
begin
writeln('vvedite dva celih chisla: ');
readln(a, b, c);
if (a > b) AND (a < c)then // сравниваем
begin
writeln('Yes');
end
else
writeln('No');
readln();
end.