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.
Линейный алгоритм<span> - это такой, в котором все операции выполняются последовательно одна за другой. Хоть бы загуглил прежде чем баллы тратить</span>
var s: real;
begin
readln(s);
s := s - (0.12 + 0.01 + 0.01) * s;
writeln('Сумма : ', s);
end.
Материнская плата, центральный процессор, оперативная память, блок питания, жесткий диск, видеокарта, CD/DVD привод.
Var
input, output : text;
A, B : integer;
begin
assign(input, 'input.txt'); //Ассоциируем переменные с файлами
assign(output, 'output.txt');
reset(input); //Открываем файл для чтения
rewrite(output); //Открываем файл для записи
readln(input, A);
readln(input, B);
writeln(output, A + B);
close(input); //Закрываем файлы
close(output);
end.
