Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / MMUSES
.PAS program mdf;
uses crt,mmm;
var q,w,e,r:integer;
begin
clrscr;
write ('‚ўҐ¤ЁвҐ ¤ў б㬬Ёа㥬ле зЁб« ');
readln (q,w);
summ(q,w,e);
writeln (q,' + ',w,' = ',e);
writeln;
writeln ('‚ўҐ¤ЁвҐ зЁб«®, ў®§ў®¤Ё¬®Ґ ў Єў ¤а в');
readln (r);
writeln (r,' ў Єў ¤а ⥠= ',kvadro(r));
readln;
end.
uses crt,mmm;
var q,w,e,r:integer;
begin
clrscr;
write ('‚ўҐ¤ЁвҐ ¤ў б㬬Ёа㥬ле зЁб« ');
readln (q,w);
summ(q,w,e);
writeln (q,' + ',w,' = ',e);
writeln;
writeln ('‚ўҐ¤ЁвҐ зЁб«®, ў®§ў®¤Ё¬®Ґ ў Єў ¤а в');
readln (r);
writeln (r,' ў Єў ¤а ⥠= ',kvadro(r));
readln;
end.
Соседние файлы в папке Alex