Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №16-5 / 16-5 / zadanie_5
.pas program Zadanie_5;
type tovar = record
kod: integer;
naim: string;
cena: real;
end;
var
tov: tovar;
begin
with tov do
begin
write ('‚ўҐ¤ЁвҐ Є®¤ в®ў а : ');
readln (kod);
write ('‚ўҐ¤ЁвҐ Ё¬Ґ®ў ЁҐ в®ў а : ');
readln (naim);
write ('‚ўҐ¤ЁвҐ жҐг в®ў а : ');
readln (cena);
writeln ('१г«мв в: ',kod:5,naim:10,cena:6:2);
end;
end.
type tovar = record
kod: integer;
naim: string;
cena: real;
end;
var
tov: tovar;
begin
with tov do
begin
write ('‚ўҐ¤ЁвҐ Є®¤ в®ў а : ');
readln (kod);
write ('‚ўҐ¤ЁвҐ Ё¬Ґ®ў ЁҐ в®ў а : ');
readln (naim);
write ('‚ўҐ¤ЁвҐ жҐг в®ў а : ');
readln (cena);
writeln ('१г«мв в: ',kod:5,naim:10,cena:6:2);
end;
end.