DDS ты крут
Спс огромное и удачи.
Вот уже чет неправильно сделал и незнаю в чем ошибка в первой задаче
Цитата:
var
a,b,sa,sb:byte;
s:integer;
begin
Write('Vvedite kol-vo tetradok i stoimost= ');
ReadLn(a,sa);
Write('Vvedite kol-vo oblojek i stoimost= ');
ReadLn(b,sb);
s:=a*sa+sb*b;
writeln('Stoimost pokypki sostavila= ',s)
end.
|
а нет все работает)