program raf105;
var x,y:integer;
begin
writeln('Введите 2 числа');
readln(x,y);
if y<>0
then writeln(x,'/',y,'=',x/y)
else writeln('На ноль делить нельзя');
end.
<em>Написано на языке PascalABC.NET</em>
это вещественное число, так что real
0 0
8 0
5 3
5 0
2 3
2 0
0 2
8 2
7 3
7 0
4 3
Первая цифра-кувшин 8л,вторая цифра кувшин 3 л. Набираем кувшин 8 л и переливаем из него жидкость в кувшин 3л.Потом из 3л выливаем жидкость. Повторяем пока не получиться 4л.
Program gt;
var n,i:integer;
s:real;
begin
read(n);
for i:=1 to n do
begin
read;
s:=s+sqrt(i);
end;
writeln(s:0:3);
<span>end.</span>
Program gt;
var A,B,C,D,S:integer;
begin
readln(A,B,C,D);//A,B,C -в условии а D-употребление пользователем
if(D<=A)then s:=B*D else s:=C*D;
writeln(S);
end.