Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №1-5 / 1-5 / zadanie_5
.pas program Zadanie_5;
type karta = record
nom: integer;
zn: real;
end;
var
Z: karta;
begin
with Z do
begin
write ('‚ўҐ¤ЁвҐ ®¬Ґа Ё§¬ҐаҐЁп: ');
readln (nom);
write ('‚ўҐ¤ЁвҐ § 票Ґ: ');
readln (zn);
write ('ђҐ§г«мв в: ',nom:5,zn:10:2);
end;
readln;
end.
type karta = record
nom: integer;
zn: real;
end;
var
Z: karta;
begin
with Z do
begin
write ('‚ўҐ¤ЁвҐ ®¬Ґа Ё§¬ҐаҐЁп: ');
readln (nom);
write ('‚ўҐ¤ЁвҐ § 票Ґ: ');
readln (zn);
write ('ђҐ§г«мв в: ',nom:5,zn:10:2);
end;
readln;
end.