tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Заданы два натуральных
Заданы два натуральных числа. определить, является ли среднее арифметическое этих чисел целым числом. решить в паскале.
cjjlkfjiii
3 10.06.2019 20:20
1
Ответы
HermioneGranger19
09.07.2020 01:43
Var a,b:real;
begin
writeln('Vvedite a');read(a);
writeln('Vvedite b');read(b);
if (frac((a+b)/2)=0) then writeln('Da') else writeln('Net');
end.
p.s функция frac возвращает дробную часть числа.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ksuha0812
24.05.2020 15:51
Логические и арифметические основы ЭВМ 1) a = 299,5 b = 67,1 2) пример 5.1 Y = B XOR NOT ( NOT 1 AND F) IMP 2 Y1=0111 Y2=0001 Y3=1110 Y4=1111 пример 5.2 Y = A OR B...
Selch
20.05.2021 10:13
10. Среди приведённых ниже трёх чисел, записанных в различных Системах счисления, найдите максимальное и запишите его в ответе в Лесятичной системе счисления. В ответе...
NASTEN111
16.08.2019 04:20
Создать массив 10-три целых чисел в диапазоне [-5,+5). найти min элемент, а потом число его вхождений(т.е. сколько элементов являются минимальными). вывести результат....
semchankov
16.08.2019 04:20
1. 2048 кб + 10 мб 2. 24 б + 160 бит...
МаминаГадость12
16.08.2019 04:30
Какая буква напечатается при комбинации клавишь shift+s(ы) если клавиатура работает в режиме заглавных букв...
маркинала
09.06.2019 15:00
Насыпали 5 мешков пшеницы по 80 кг каждый и 3 мешка ржи по 60 кг каждый. сколько всего килограммов зерна насыпали в мешки?...
JoshuaJoseph
09.06.2019 15:00
Решить sqrt(x+5)-sqrt(2x-3)=sqrt(4x-1)...
Mitrel
09.06.2019 15:00
Собака погналась за лисицей находящейся от неё на расстоянии 120 м через сколько минут собака догонит лисицу если лисица пробегает в минуту 320 м а собака 350 м...
Asuacom
09.06.2019 15:00
Сколькими можно составить шестизначное число из трех единиц, двух пятерок и одной девятки...
bykvav
09.06.2019 15:00
Как использовать some y any-c chocolate,nuts,there is some milk,olive,...
Популярные вопросы
Запишіть 3 перших члени числової послідовності сn=3n²-n...
3
- Hello! May I speak to Jane, please? - ... … … - This is Mary...
3
При якому значенні a сума квадратів коренів рівняння x²-(2a+3)x+6a=0...
2
Обчисліть масу солі, яка утвориться та об’єм газу, що виділяється...
3
Заполнить таблицу природные ресурсы( 1 столбик- природные ресурсы,...
2
Каждый угол четырехугольника на 12 градусов больше предыдушего...
2
2 1/ 3 *6/ 7 - 2 1/ 4 :6 3/ 4 решение...
3
По рисунку запишите примеры движений в живой и неживой природе.2....
1
Стоимость основного капитала по фирме в отчетном году составила...
3
Всё в тесте начиная с 4 до 12...
3
begin
writeln('Vvedite a');read(a);
writeln('Vvedite b');read(b);
if (frac((a+b)/2)=0) then writeln('Da') else writeln('Net');
end.
p.s функция frac возвращает дробную часть числа.