Program one;
var s,a,b,c,d,m:real;
begin
writeln('Введите цену яблок , груш ');
readln(s,a);
writeln('Введите кол-во яблок , груш в кг ');
readln(b,c);
m:=(a*b)+(c*d);
if s >= m then writeln('Денег хватит',m)
else
writeln('Денег не хватит');
end.
Один из вариантов состоит из двух таблиц.
Левая таблица - база данных
правая форма отчета с необходимыми условиями
RAR, ZIP, ARJ, JPEG, MP4 и много других форматов - практически любой формат это некое сжатие информации для компактного хранения.
В виде исключения приходят на память только TXT, WAV и быть может BMP
<span><span><span>Закодируй полученную тобой на основе анализа рисунка информацию знаками на бумажном носителе. ... Опиши состав и действия трех кораблей на рисунке Дай имена и заполни таблицу отличительных признаков.</span></span></span>
1.+++-
2.++++
3.++++
4.+---
5.+--+
6.----