Program abc;
var
n:integer;
begin
Write('Введите трёхзначное число: ');
readln(n);
Writeln('В данном числе: ',n div 100,' сотен(-я), ',(n div 10) mod 10,' десятков(-ок, -а), ', n mod 10, ' единиц(-а).');
<span>end.</span>
1)отливаем 8 литров в 8 литровый, тогда в 12 литровом останется4
2) из 8 литрового переливаем в 5 литровый 5 литров, тогда в 8 литровом останется 3
3)ИЗ 5 ЛИТРОВОГО ОБРАТНО 5 ЛИТРОВ В 12 ЛИТРОВЫЙ
ТАМ СТАНОВИТСЯ 9 ЛИТРОВ
4)ИЗ 8 ЛИТРОВОГО ПЕРЕЛИВАЕМ 3 ЛИТРА В 5 ЛИТРОВЫЙ
5)НАЛИВАЕМ ИЗ 12 ЛИТРОВОГО 8 ЛИТРОВ В 8 ЛИТРОВЫЙ
<span>6)ТЕПЕРЬ ИЗ 8 ЛИТРОВОГО ДОЛИВАЕМ В 5 ЛИТРОВЫЙ 2 ЛИТРА(ДО ВЕРХА), ТОГДА В 8 ЛИТРОВОМ ОСТАЕТСЯ 6 ЛИТРОВ</span>
Есть ошибки в запуске, это бывает при удалении изменении файлов в главной папке или же без наличия нужных ресурсов программ для работы приложения
Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Каждый человек имеет авторское право на результат своего творчества. Цифровая репутация зачастую является компрометирующей и даже может повлиять на твою жизнь, используя персональные данные. Важно знать, что собственность - это не застывшие экономические отношения, а активно развивающиеся. Вчера мы задержались, чтобы уточнить все нюансы насчет автоматического подключения к интернету.