Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab03
.pas program labrab03;
uses crt;
var a,b,c: integer;
begin
clrscr;
writeln(' Введте двухзначное число : ');
read(a);
b:=a div 10;
c:=a mod 10;
writeln(' сумма цифр = ', c+b);
readln;
end.
uses crt;
var a,b,c: integer;
begin
clrscr;
writeln(' Введте двухзначное число : ');
read(a);
b:=a div 10;
c:=a mod 10;
writeln(' сумма цифр = ', c+b);
readln;
end.
Соседние файлы в папке 1 лаб. Арифметические операции