Черная-а, желиая-б
по идее ты должен их одну к другой повдоль(см. 3ий случай)
Решение - в прилагаемом файле.
Я так понял
1)ДОМ:
крыша, стены, окна, дверь, дымоход, звонок, и и.д
2)КНИГА МАТЕМАТИКИ
страницы, листочки, темы, пора грозы, тексты, задачи, решение, примеры, уравнение, главы и т.д
var
cookie, sweets: real;
begin
writeln('Введите цены 1 кг конфет и 1 кг печенья:');
readln(sweets, cookie);
sweets/=1000;
cookie/=1000;
writeln('a)', 300 * sweets + 400 * cookie:0:4);
writeln('б)', 3 * 1000 * sweets + 3 * 2000 * cookie:0:4);
end.
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.