Var money, cost,summa : real;
count : integer;
tovar: string;
begin writeln('Введите исходные данные: ');
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost);
writeln('Сколько штук? ');
readln(count);
summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2); writeln('Сколько денег даете? ');
readln(money);
if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
<span>end.</span>
1) e
2) b
3) a
4) d
5) c
6) --
7) a
8) --
9) --
10) a
Тема:
1.осень
2.лучшая техника 2016
3.новая техника 2016
4.стоит ли покупать новый айфон 7
5.почему дети так не любят школу?
6.я ♥ информатику
7.что я буду делать на осенних каникулах?
Решается на обычном калькуляторе
1) 1011100010110 (если из десятиричной)
2) 4DC6 (если из десятиричной)
3) 266306 (если из восьмеричной)
1) 1112124
2) 1023144144
3) 4016