Question

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

Answer 1

Ответ: Вот правильный (не уверен, но большинство ошибок думаю я исправил)

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