На листочке всё написанно, но на всякий пожарны диктую ответы. Это48:
4,
6,
5,
4,
7.
Это49:
5,
2,
5,
5,
7.
Ответ:
1
Объяснение:
(x<3) & (x<2)
Подставляем 0 вместо х, как указано в условии
(0<3) & (0<2)
0 действительно меньше 3, поэтому выражение истинно. Пишем вместо него 1. То же и для 0 < 2.
1 & 1
истинно И истинно равно "истинно". Пишем 1.
<h2>Программа написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться должна и на обычном Pascal</h2>
не указано, как именно завершать ввод, поэтому сделал завершение словом exit
<h2>Код</h2>
- program task31784852;
- var
- number, maxLength, maxNumber: integer;
- inputIsTrue: boolean;
- inputString, maxLengthString: string;
- begin
- inputIsTrue := false;
- maxLength := 0;
-
- Writeln('Напишите exit, чтобы завершить ввод и получить результат');
-
- while inputIsTrue = false do
- begin
- Readln(inputString);
- if Length(inputString) = 0 then
- continue;
- if inputString = 'exit' then
- break;
- number := number + 1;
- if Length(inputString) > maxLength then
- begin
- maxLength := Length(inputString);
- maxLengthString := inputString;
- maxNumber := number;
- end;
- end;
- Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString);
- end.
<h2>Проверка</h2>
Напишите exit, чтобы завершить ввод и получить результат
a
aa
aaa
aaaaaalsd
pwpefowpeofkpwef
................
...................
123462048201180301313031
znanija.com/task/31784852
exit
Самая длинная строка с номером 9: znanija.com/task/31784852
var
x1, x2 : integer;
begin
write('введите координаты точек x1 и x2: ');
readln(x1, x2);
writeln('расстояние между точками равно: ', abs(x2-x1));
end.
Program prog;
Uses crt;
var a,b, tmp: real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
writeln;
if (a<b) then
begin
tmp:=a;
a:=b;
b:=tmp;
end;
writeln ('A = ', a);
writeln ('B = ', b);
end.