Запишите в виде выражения: а)число k умножить на 4 и к произведению прибавить 14.б)к числу a прибавить - id807402820211217 от zebrakod 17.12.2021 06:47

Question

Информатика: Запишите в виде выражения: а)число k умножить на 4 и к произведению прибавить 14.б)к числу a прибавить число b и эту сумму разделить на число c.

zebrakod · Accepted Answer

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.

Pascal. сколько раз в целом числе встречается самая маленькая цифра этого числа( решение через проце

Pascal. сколько раз в целом числе встречается самая маленькая цифра этого числа( решение через проце

Запишите в виде выражения: а)число k умножить на 4 и к произведению прибавить 14.б)к числу a прибавить число b и эту сумму разделить на число c.

MOGZ ответил