поскольку язык не указан пишу в том который мне удобнее
def temp-table wares no-undo
field ware as char
field cost as dec extent 13
field infl as dec.
def var i as int.
def var infl as dec.
input from data.txt.
repeat:
create wares.
import wares.
end.
input close.
do i = 2 to 13:
infl=random(0.0005, 0.02).
for each wares :
wares.cost[i]=wares.cost[i-1]*(1+infl).
end.
end.
program r; uses crt; var a, c, d, l, k: string[50]; b: integer; beginwriteln('! '); writeln('давай познакомимся! как тебя зовут? '); readln(a); writeln(' приятно, ',a,'! ','а меня зовут евгений.'); writeln('сколько тебе лет? '); readln(b);
if (a = 'антон' and b=15) thenwriteln(' через 50 лет тебе уже будет 65 лет, а звать тебя будут не антон, а дед антон');
writeln('мне тоже,' b, '! '); writeln('какую музыку ты любишь слушать? '); readln(c); writeln('ничего себе! да у нас похожие вкусы! ведь я тоже люблю слушать ', c); writeln('какое время года ты любишь? '); readln(d); writeln('я тоже обожаю ',d); writeln('какой твой любимый цвет? '); readln(l); writeln('мне кажется, мы во многом это и мой любимый цвет.'); writeln('кто ты по знаку зодиака? '); readln(k); writeln('надо же! я тоже ',k,'.'); writeln('было приятно познакомиться и поговорить,' a,'! пока! '); end.
Поделитесь своими знаниями, ответьте на вопрос:
Как разделить 8 литров подсолнечного масла на две равные части (по 4 литра каждая), если кроме полного 8-литрового бидона есть два пустых бидона на 5 литров и 3 литра?
например, так:
1) переливаем 5 л из большого бидона в 5-литровый
2) из 5-литрового переливаем 3 литра в 3-литровый. в 5-литровом остается на этот момент 2 литра, в большом и 3-литровом по 3 литра. дальше буду писать просто [3, 2, 3]
3) [6, 2, 0]
4) [6, 0, 2]
5) [1, 5, 2]
6) [1, 4, 3]
7) [4, 4, 0]