Pascal ABC. Процедура.
-----------------------------------------------------
var
N:longint;
min:longint;
count: byte;
tmp, z: longint;
procedure MinAndCount(var a: longint);
begin
readln(N);
z := N;
count := 0;
min:=10;
while N<>0 do
begin
if n mod 10 < min then
min := n mod 10;
n := n div 10;
end;
tmp := min;
while z<>0 do
begin
if (z mod 10)=tmp then inc(count);
z:=z div 10;
end;
writeln('Самая маленькая цифра = ',min, ' встречается = ', count, ' раз(а).');
readln;
end;
begin
write('Введите число: ');
MinAndCount(N);
end.
Var
m, n, n10, n100: integer;
begin
write('Введите трехзначное число: ');
readln(m);
if (m > 99) and (m < 1000) then
begin
n100 := m div 100;
n10 := (m mod 100) div 10;
n := m mod 10;
if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
else writeln('Сумма цифр не кратна семи')
end
end.
Тестовое решение:
Введите трехзначное число: 473
Сумма цифр кратна семи
Расположи героев сказок бабушка,внучка,волк,дедушка,заяц,кошка,курица,лиса,медведь,мышка,собака в окружностях сплошной границы д
диол9
Репка - бабушка, внучка, дедушка, кошка, мышка, собака.
Колобок - бабушка, дедушка, волк, заяц, медведь, лиса.
Курочка Ряба - бабушка, дедушка, курица, мышка.
В некоторых вариантах еще внучки встречаются.
Круги сами рисуйте, мне в Пайнте это трудно.
Для рисования прямоугольника есть специальная функция.
rectangle(x1,y1,x2,y2);
x1,y1 - координаты левой, верхней вершины.
x2,y2 - координаты правой, нижней вершины.
Пример в приложении.
Зрительная, тактильная, слуховая, вкусовая, обонятельная
