Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / C1
.PAS program try;
uses my_unit;
var t:integer;
begin
zast;
writeln ('‚ўҐ¤ЁвҐ 楫®Ґ зЁб«®');
readln (t);
writeln ('—Ёб«®,ў®§ўҐ¤Ґ®Ґ ў Єў ¤а в Ё 㬮¦Ґ®Ґ зҐвлаҐ, а ў®',kvadro (t));
readln;
end.
uses my_unit;
var t:integer;
begin
zast;
writeln ('‚ўҐ¤ЁвҐ 楫®Ґ зЁб«®');
readln (t);
writeln ('—Ёб«®,ў®§ўҐ¤Ґ®Ґ ў Єў ¤а в Ё 㬮¦Ґ®Ґ зҐвлаҐ, а ў®',kvadro (t));
readln;
end.
Соседние файлы в папке Alex