Program Posled;
Var
a, b, sum1, sum2, sum3: integer;
Begin
read (a,b);
sum1 := (a mod 10) + (b mod 10);
sum2 := (a div 10 mod 10) + (b div 10 mod 10);
sum3 := (a div 100 mod 10) + (b div 100 mod 10);
if ((sum3 > sum2) and (sum2 > sum1)) then
write('OK')
else
write('NO');
<span>End.</span>
Попробуй переделать вот эту программу под себя: (см. скриншоты)
Или вот я доработал программу: Выводятся 3 окружности , радиус которых убывает на 50 пикселей
Var
n, x, k, i:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(x);
if x mod 10 =6 then
inc(k);
end;
writeln(k);
end.
program summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.
Общая формула ног K=2*L+4*M (У куриц две ноги, у кроликов 4). Общее число животных N=L+M,где L-число куриц, М-число кроликов. Из этого следует, что L=N-M. Теперь подставляем в первую формулу: K=2*(N-M)+4*M,
K=2*N-2*M+4*M, K=2*N+2*M, K-2*N=2*M, M=(K-2*N)/2. Формула для нахождения числа кроликов готов. А для куриц будет проще L=N-M.
И все