IrishkaMerkulova04
1 задача) program sf; var a,b,c:Integer; begin writeln('Введите 3 числа через пробел'); readln(a,b,c); if a+b+c=7 then writeln('Да') else writeln('Нет'); end.
0 votes Thanks 1
Ziorar
Тут не совсем то проверяется, что в задании записано
1. Программа, проверяющая сумму цифр трёхзначного числа на кратность семи:
var
x, a, b, c: integer;
begin
readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
if (a + b + c) mod 7 = 0 then
write('Да')
else
write('Нет')
end.
2. Эта программа будет писать "принадлежит" и для области точек, лежащих между двумя прямыми на графике ниже окружности (например, для точек с координатами (-2, -2) или (0, -3) или (1, -5) ).
Чтобы это исправить, можно добавить ещё одно условие (чтобы исключить отрицательные значения игрек- строка if y>=0 then ).
Answers & Comments
program sf;
var a,b,c:Integer;
begin
writeln('Введите 3 числа через пробел');
readln(a,b,c);
if a+b+c=7 then writeln('Да')
else writeln('Нет');
end.
1. Программа, проверяющая сумму цифр трёхзначного числа на кратность семи:
var
x, a, b, c: integer;
begin
readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
if (a + b + c) mod 7 = 0 then
write('Да')
else
write('Нет')
end.
2. Эта программа будет писать "принадлежит" и для области точек, лежащих между двумя прямыми на графике ниже окружности (например, для точек с координатами (-2, -2) или (0, -3) или (1, -5) ).
Чтобы это исправить, можно добавить ещё одно условие (чтобы исключить отрицательные значения игрек- строка if y>=0 then ).
Получим такую программу:
var x,y: real;
begin
readln(x,y);
if x*x+y*y>=4 then
if x>=-2 then
if y<=-x then
if y>=0 then
write('принадлежит')
else
write('не принадлежит')
end.