Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a,b: integer;
begin
write('введите в одной строке два целых числа и нажмите < enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a> b then writeln(a,' больше')
else writeln(b,' больше')
end.
трех зайцев по углам, двоих вдоль стен
не трундая . приступим.
пусть а - первое число, б - второе число, с - третье число.
четное число - 2n
if (a+b+c) div 2 = 0 then writeln ('их сумма четное число') else writeln ('их сумма нечетное число');
var x1,y1,z1,x2,y2,z2,d: real;
writeln('введите координаты первой точки');
readln(x1,y1,z1);
writeln('введите координаты второй точки');
readln(x2,y2,z2);
d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));
wrileln(d);
Популярные вопросы