//Pascal ABC.NET 3.2 сборка 1318
Var
a,b:integer;
begin
readln(a,b);
if (a mod 10>b mod 10) and (a div 10>b div 10) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
23
12
Пример вывода:
Да
В программе нужно заменить в цикле след. строки :
for i:=1 to n do
for j:=i+1 to n do a[i,j]:=0;
заменить на строки
for i:=2 to n do
for j:=1 to i-1 do a[i,j]:=1;
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var m:=2*2;
var s:=m;
for var i:=3 to 10 do begin m*=2; s+=m end;
Writeln(s)
end.
<u><em>Тестовое решение:</em></u>
2044
1. Б
2. А
3. А
4. Б
5. Б
6. В
7. Б
8. Б
9. В
10. Б
11. Б
12. В
13. А
14. Б
15. А
Иногда немного учил Pascal, так что еще знаю некоторые вещи.
A B C notA notA&B A=>C (notA&B)or(A=>C)
0 0 0 1 0 1 1
0 0 1 1 0 1 1
0 1 0 1 1 1 1
0 1 1 1 1 1 1
1 0 0 0 0 0 0
1 0 1 0 0 1 1
1 1 0 0 0 0 0
1 1 1 0 0 1 1