Лука
4 год назад
Пожалуйста посчитайте тест решить, могут на второй год оставить!!! 1. Даны координаты точки. Выяснить лежит ли точка во второй координатной четверти. 2. Дано двухзначное число n. Определить больше-ли числа 9 сумма его цифр.Заранее спасибо за правильные ответы!
ОТВЕТЫ
Stanko
Oct 24, 2020
Первая программа:
program p;
var
x, y: integer;
begin
writeln('Введите x >> ');
read(x);
writeln('Введите y >> ');
read(y);
if (x<0) and (y>0) then
begin
writeln('Точка принадлежит второй координатной четверти');
end
else
begin
writeln('Точка не принадлежит второй координатной четверти');
end
end.
Вторая:
program p2;
var
n, i, sum, j: integer;
arr: array[1..10] of integer;
begin
writeln('Введите число n');
read(n);
while n>0 do
begin
inc(i);
arr[i]:=n mod 10;
n:=n div 10;
end;
for j:=1 to i do
begin
sum+=arr[j];
//write(arr[j]);
end;
if sum>9 then3
begin
writeln('Сумма больше 9');
end
else
begin
writeln('Сумма меньше 9');
end
end.
program p;
var
x, y: integer;
begin
writeln('Введите x >> ');
read(x);
writeln('Введите y >> ');
read(y);
if (x<0) and (y>0) then
begin
writeln('Точка принадлежит второй координатной четверти');
end
else
begin
writeln('Точка не принадлежит второй координатной четверти');
end
end.
Вторая:
program p2;
var
n, i, sum, j: integer;
arr: array[1..10] of integer;
begin
writeln('Введите число n');
read(n);
while n>0 do
begin
inc(i);
arr[i]:=n mod 10;
n:=n div 10;
end;
for j:=1 to i do
begin
sum+=arr[j];
//write(arr[j]);
end;
if sum>9 then3
begin
writeln('Сумма больше 9');
end
else
begin
writeln('Сумма меньше 9');
end
end.
401
Смежные вопросы: