Var a,b,d,m:integer;
begin
writeln('Введите два числа:');
write('a = '); readln(a);
write('b = '); readln(b);
d:=a div b;
m:=a mod b;
writeln('D = ',d);
writeln('M = ',m);
end.
Пример:
Введите два числа:
a = 16
b = 6
D = 2
M = 4
1. Материнская плата
2. Оперативная память
3. Акустические колонки
Var i:integer;s:real;begins:=0;for i:=1 to 20 dos:=s+(1/i);writeln('y = ',s);end.
Да будут, по скольку даны стороны. вроде бы так