Предмет: Информатика,
автор: ZarokGroom
Помогите тест решить, могут на второй год оставить!!!
1. Даны координаты точки. Выяснить лежит ли точка во второй координатной четверти.
2. Дано двухзначное число n. Определить больше-ли числа 9 сумма его цифр.
Заранее спасибо за правильные ответы!
Ответы
Автор ответа:
0
Первая программа:
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.
Похожие вопросы
Предмет: Английский язык,
автор: ylyanaegorkina
Предмет: Математика,
автор: doesitmattttrr
Предмет: Математика,
автор: sniprx125
Предмет: Информатика,
автор: Макс5236
Предмет: Алгебра,
автор: dimanms130