Var a,b,c:integer; Begin readln(a); {сколько света нагорело} readln(b); {тариф на свет} c:=a*b; {сколько необходимо заплатить денег за a-света, по b-тарифу} writeln(c); End.
Var a,b:real; begin writeln('Сколько стоит электричество?'); read(a); writeln('Сколько показывает счетчик?'); read (b); writeln('Вам нужно заплатить ', a*b); end.
У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра
У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра
Begin
readln(a); {сколько света нагорело}
readln(b); {тариф на свет}
c:=a*b; {сколько необходимо заплатить денег за a-света, по b-тарифу}
writeln(c);
End.
Если я все правильно понял.