Подсчитать количество целых чисел среди чисел a,b,c.
5-9 класс
|
var
a, b, c : real;
count : byte;
begin
read (a, b, c);
count := 0;
if frac (a) = 0 then inc (count);
if frac (b) = 0 then inc (count);
if frac (c) = 0 then inc (count);
writeln (Count);
end.
Другие вопросы из категории
A)Red.Green.Blue
Б)Red.Great.Black
В)Right.Good.Bad
Г)Red.Green.Black
ю с конца позицию, а если первый элемент массива нуль , то меняем местами первые два элемента массива. Запишите последовательность, получившуюся после пятикратного применения этого алгоритма.
Читайте также
Написать программу в Pascal.
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет