Var x,y,z,d:integer;
5-9 класс
|
b1,b2,b3,b4,b5,b6:boolean;
begin
Write('введите 4 любых числа');
readln(x,y,z,d);
b1:=x+y>z-d;
b2:=x-y<=z+d;
b3:=x/y<z*d;
b4:=x*y>=z/d;
b5:=x+y=z+d;
b6:=x-y<>z-d;
Write('сумма первого и второго больше разности второго и третьего;b1');
WRITE('разность первого и второго больше или равна сумме третьего и четвертого;b2');
write('деление первого и второго меньше произведения третьего и четвертого;b3');
write('произвдение первого и второго больше или равна делению третьего и четвертого;b4');
write('сумма первого и второго равна сумме третьего и чертогоb5');
write('разность первого и второго не равна разности третьего и четвертого');
Readln (b1,b2,b3,b4,b5,b6);
End.
исправьте, в паскале, просит ввести доп данные, а я не знаю что делать:(
Я не понял, зачем пользователю вводить значения логических переменных в конце программы? Во-вторых: в серии выводов я заменил write на writeln, а то просто каша. И еще: косяк с выводом значений лог. переменных, сравните мой вариант и свой. var x,y,z,d:integer; b1,b2,b3,b4,b5,b6:boolean; begin Writeln('введите 4 любых числа'); readln(x,y,z,d); b1:=x+y>z-d; b2:=x-y<=z+d; b3:=x/y=z/d; b5:=x+y=z+d; b6:=x-y<>z-d; Writeln('сумма первого и второго больше разности второго и третьего ',b1); writeln('разность первого и второго больше или равна сумме третьего и четвертого ',b2); writeln('деление первого и второго меньше произведения третьего и четвертого ',b3); writeln('произвдение первого и второго больше или равна делению третьего и четвертого ',b4); writeln('сумма первого и второго равна сумме третьего и чертого ',b5); writeln('разность первого и второго не равна разности третьего и четвертого ',b6); end.
Другие вопросы из категории
индексы элемента 1 2 3 4 5 6 7 8 9 10
значение элемента 1 3 5 7 9 11 13 15 17 19
Читайте также
2. Определить,что распечатает следующая программа:
var a: array[1..5,1..5]of integer,i,j; integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if i=5-j+1 then a[i,j]:=0
else a [i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end; end.
3. Дан линейный массив a [l..n], содержащий целые числа. Вычислить сумму чисел делящихся одновременно на 5 и на 3 и распечатать номера таких чисел
4.Дан линейный массив a [l..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу : если элемент положительный,то заменить его на 1, а если отрицательный - возвести в квадрат
y:=20;
if x:=5 then y:=y*x;
writeln (`y равен,y`);
ehd.
Ошибка где то в присвоение, т.к на выходе все время получаю 0.
Вопрос: В чем же ошибка?
----------------------------------------
Program test;
var a, b, c, d: integer;
begin
writeln ('Enter A');
read (a);
writeln ('Enter B');
read (b);
writeln ('Enter C');
read (c);
if (a<b) and (a<c) then a:=d;
if (b<a) and (b<c) then b:=d;
if (c<a) and (c<b) then c:=d;
writeln ('Complete');
writeln ('Your number is', d);
end.
Program P12;
Var A,B,C, P : integer;
Begin
Writeln(‘ Введите стороны треугольника’);
Readln(A,B,C);
P:=A+B+C;
Writeln(‘ P= ’, P);
End.
begin writeln (‘Введите через пробел А, В, С’); readln (a, b, c); IF a>b THEN d:=a ELSE d:=b; IF c>d THEN d:=c; writeln(d); readln; end.