Program chislo;
uses crt;
var
a:integer;
begin
writeln('Введите число : ');
readln(a);
if((a Div 100)>(a Mod 10)) then
writeln('Да')
else
if((a Div 100)<(a Mod 10)) then
writeln('Нет')
end.
Var
n, sum: integer;
begin
read(n);
while n > 0 do
begin
if n mod 10 < 7 then
sum := sum + n mod 10;
n := n div 10
end;
writeln(sum);
end.
АЖЕБДВГ как-то так пишу чтобы набрать символы
Var
a:array[1..10,1..10] of integer;
i, j, j1, max, s: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(a[i,j]);
max := a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>max then
begin
max := a[i,j];
j1:=j;
end;
for i:=1 to 10 do
begin
s:=a[i, 1];
a[i, 1] := a[i, j1];
a[i, j1] := s;
end;
<span>end.</span>
Всегда, когда щелкнут по флажку, повторить..., когда я получу, передать сообщение, касается...,
идти 10 шагов, повернуться в направлении, скрыть переменную, показать переменную, когда клавиша... нажата.