Решите пж если есть прога "Turbo Pascal" У меня не инсталится на комп с совместимостью проблемы :c
Приложения:
![](https://st.uroker.com/files/231/2318a4db47a4192f6e185f091356e93b.png)
![](https://st.uroker.com/files/d50/d505e932ee35af31d4257c50a20158e2.png)
Ответы
Ответ дал:
0
Номер 56
var t,ts,k,ks,a:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
readln(t,ts,k,ks); // t - кол-во тетрадей, ts - стоимость 1 тетради, k - кол-во карандашей, ks - стоимость 1 карандаша
if (t<0) or (ts<0) or (k<0) or (ks<0) then writeln ('Ошибка') else
begin
a:=t*ts+k*ks;
writeln(a);
end;
end.
Номер 58
var a,b,c:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(a);
write('Вес яблок (кг) -> ');
readln(b);
c:=a*b;
writeln(' ');
writeln('Стоимость покупки: ',c,' руб.');
end.
var t,ts,k,ks,a:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
readln(t,ts,k,ks); // t - кол-во тетрадей, ts - стоимость 1 тетради, k - кол-во карандашей, ks - стоимость 1 карандаша
if (t<0) or (ts<0) or (k<0) or (ks<0) then writeln ('Ошибка') else
begin
a:=t*ts+k*ks;
writeln(a);
end;
end.
Номер 58
var a,b,c:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(a);
write('Вес яблок (кг) -> ');
readln(b);
c:=a*b;
writeln(' ');
writeln('Стоимость покупки: ',c,' руб.');
end.
Ответ дал:
0
сайт убрал все строчки, достаточно между begin и writeln сделать строчку, остальное будет работать и без этого
Ответ дал:
0
если нужно красиво, то после каждой ; сделать новую строчку
Ответ дал:
0
Отформатируйте, все равно модераторы заставят или удалят ответ.
Ответ дал:
0
И еще: Ваше решение неполное, где задание 56?
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад