Program kol_vo_elementov;
var a:array[1..10] of integer;
i, s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(25);
write(a[i],' ');
if (a[i]>0) then
s:=s+a[i];
end;
writeln('s=',s);
end.
Var a:integer;
begin
read(a);
write((a mod 10)*100+(a div 10 mod 10)*10+a div 100)
<span>end.</span>
У меня получилось так (1 -- закрашено, 0 -- не закрашено)
100010001
001000100
100010001
001000100
100010001
Итого: 13 клеток
Var money, cost,summa : real;
count : integer;
tovar: string;
begin writeln('Введите исходные данные: ');
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost);
writeln('Сколько штук? ');
readln(count);
summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2); writeln('Сколько денег даете? ');
readln(money);
if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
<span>end.</span>
Uses crt;
var a,b,c,input:integer;
begin
readln(input);
a := input div 10;
a := a div 10;
b := input div 10;
b:=b mod 10;
c := input mod 10;
if (a + b + c) > 10 then writeln('Больше 10') else writeln('Меньше 10');
end.