Вопрос № 87502: Помогите, пожалуйста написать программы на Pascal:
1.Дано четырехзначное число. Определить, равна ли сумма первых двух цифр данного числа сумме последних двух цифр.
2.Дано трехзначное число. Определить, является ли сумма цифр данного числа че...
Вопрос № 87.502
Помогите, пожалуйста написать программы на Pascal:
1.Дано четырехзначное число. Определить, равна ли сумма первых двух цифр данного числа сумме последних двух цифр.
2.Дано трехзначное число. Определить, является ли сумма цифр данного числа четным числом.
3.Дан треугольник длинами своих сторон. Определить, является ли этот треугольник равнобедренным.
4.Определить, является ли целое число N двузначным нечетным числом.
5.Определить, является ли данная тройка натуральных чисел a,b,c тройкой Пифагора, т.е. C2=a2+b2.
6.Дано три числа – a,b,c. Определить, равно ли произведение чисел a и b числу с.
7.Дано целое трехзначное число. Подсчитать количество одинаковых цифр в записи этого числа.
8.Дано три числа – a,b,c. Определить, является ли число с средним арифметическим чисел a,b.
9.Дана величина А, выражающая объем информации в байтах. Перевести А в более крупные единицы измерения.
Отправлен: 18.05.2007, 14:58
Вопрос задал: Leeryhomer (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Tribak
Здравствуйте, Leeryhomer!
вот пока 1-ый три задачи:
1)
program www;
uses crt;
var
a,b,c,d,i,s:integer;
begin
readln(s);
a:=0;
b:=0;
c:=0;
d:=0;
while s>1000 do
begin
s:=s-1000;
inc(a);
end;
while s>100 do
begin
s:=s-100;
inc(b);
end;
while s>10 do
begin
s:=s-10;
inc(c);
end;
d:=s;
if (a+b)=(c+d) then write('good') else write('bad');
readln;
end.
2)
program www;
uses crt;
var
b,c,d,i,s:integer;
begin
readln(s);
b:=0;
c:=0;
d:=0;
while s>100 do
begin
s:=s-100;
inc(b);
end;
while s>10 do
begin
s:=s-10;
inc(c);
end;
d:=s;
if ((b+c+d) mod 2)=0 then write('good') else write('bad');
readln;
end.
3)
program www;
var
a,b,c:real;
begin
write('1 storona '); readln(a);
write('2 storona '); readln(b);
write('3 storona '); readln(c);
if (a=b) or (b=c) or (a=c) then write('good') else write('bad');
readln;
end.
Ответ отправил: Tribak (статус: 1-ый класс)
Ответ отправлен: 18.05.2007, 15:47 Оценка за ответ: 5
Отвечает: Ерёмин Андрей
Здравствуйте, Leeryhomer!
В приложении пример программы задания №4.
Приложение:
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
В приложении смотрите решение задач под номерами 1-8.
Задачи я разделил на два блока, для трех переменных и для одной переменной (блок№1 - для задач [1,2,4,7], блок№2 - для задач [3,5,6,8]), посему просто в каждом из этих блоков я закомментировал куски соответствующих задач, разделил я их строками вида {===========Х=================}. Вам будет нужно только раскомментировать соответствующую часть программы.
Good Luck!!!
Приложение:
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 18.05.2007, 16:13 Оценка за ответ: 5
Отвечает: Louken
Здравствуйте, Leeryhomer!
Странно для меня, что такая простая 9-ая задача, так и не была решена, пока никем.
Поэтому исправляю эту ситуацию.
Приложение:
Ответ отправил: Louken (статус: 2-ой класс)
Ответ отправлен: 18.05.2007, 22:46 Оценка за ответ: 5
