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мбайт=1024кбайт
1кбайт=1024 байт
1мбайт примерно равен 10^6
В одном байте 8 бит, в одном килобайте 1024 байт, в одном мегабайте 1024 килобайт, то есть 1 мегабайт это 8*1024*1024 бит
Начало
выкопать в земле ямку
опустить в ямку саженец
засыпать ямку с саженцем землей
полить саженец водой
Конец
Начало и конец в овале, остальное в прямоугольнике.
Эта презентация Вам в помощь : http://u.to/A4wWBQ