Поделитесь своими знаниями, ответьте на вопрос:
1. Найти ошибки в программе, сама структура программы составлена верно, но допущено 10 ошибок, исправьте их в тексте, зачеркнув или дописав необходимые символы. Задача. В магазине купили карандаши и тетради. Вычислить сумму покупки. program dex; uses ctr; var ck, ct, summa:real; k, t:byte begin writeln('Skolko kupili karandashei??'); readln(t); writeln('Skolko stoit odin karandash??'); readln(ck); writeln('Skolko kupili tetradei??') readln(t); writelen('Skolko stoit odna tetrad??); readln(ct); suma:=k+ck+t*ct; writeln ('summa pokupki = ', summa:6:2 ' rub.'); readln; end
ответ: Вот правильный (не уверен, но большинство ошибок думаю я исправил)
program dex;
uses
ctr;
var ck,ct,summa:real;
k,t:byte ;
begin
writeln('Skolko kupili karandashei??');
readln(t);
writeln('Skolko stoit odin karandash??');
readln(ck);
writeln('Skolko kupili tetradei??') ;
readln(t);
writeln('Skolko stoit odna tetrad??);
readln(ct);
summa:=k+ck+t*ct;
writeln ('summa pokupki = ',summa:6:2 ' rub.');
readln;
end.
я хз почему тут нужен модуль ctr