1. Наливаем 3 литра - переливаем в 8 л. кувшин.
<span>2. Снова набираем и переливаем в 8 л кувшин. </span>
<span>3. Наливаем снова и переливаем в 8 литровый кувшин 2 литра, а в 3-х литровом остался 1 л. </span>
<span>4. Из 8 л все выливаем, а туда переливаем 1 л. </span>
<span>5. А теперь два раза наполняем 3- х л. кувшин и доливаем по 3 литра в 8 л. Будет 7 литров</span>
//Общее сопротивление сети:
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R
var
r1,r2,u : integer;
R,I : real;
begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);
R := r2*r1 / (r2 + r1);
I := U/R;
//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );
writeln ('Сила тока на участке = ',I);<span>
end.</span>
Получилось на 15 мин быстрее)))
Как я понял, нужно определить, какая буква введена с клавиатуры - большая или маленькая, сделала для английского и русского языка
program one;
var
a:string;
begin
readln(a);
if a[1] in ['a'..'z'] then writeln('Маленькая');
if a[1] in ['A'..'Z'] then writeln('Большая');
if a[1] in ['а'..'я'] then writeln('Маленькая');
if a[1] in ['А'..'Я'] then writeln('Большая');
<span>end.</span>
Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
Удаление слова при его выделении