Question

Подскажите как выглядит паскаль - программа, которая может подсчитать количество целых среди чисел a, b, c и d.(с помощью разветвления)

Answer 1

uses crt;
var a,b,c: real;    
k: byte;
begin k:=0;
write('a=');
readln(a);
if round(a)=a then k:=k+1;
write('b=');
readln(b);
if round(b)=b then k:=k+1;
write('c=');
readln(c);
if round(c)=c then k:=k+1;
writeln(k);
readln;
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая подсчитывает количество целых чисел среди заданных чисел a, b, c и d с помощью разветвления:

pascalCopy code
program CountIntegers;

var
  a, b, c, d: integer;
  countIntegers: integer;

begin
  // Ввод чисел a, b, c и d
  writeln('Введите четыре целых числа:');
  readln(a, b, c, d);

  // Инициализируем счетчик целых чисел
  countIntegers := 0;

  // Проверяем каждое число на целочисленность и увеличиваем счетчик при необходимости
  if a = round(a) then
    countIntegers := countIntegers + 1;
  if b = round(b) then
    countIntegers := countIntegers + 1;
  if c = round(c) then
    countIntegers := countIntegers + 1;
  if d = round(d) then
    countIntegers := countIntegers + 1;

  // Выводим результат
  writeln('Количество целых чисел среди введенных: ', countIntegers);

end.

Программа предлагает ввести четыре числа a, b, c и d с клавиатуры, затем проверяет каждое число на целочисленность, используя функцию round(), которая округляет число до ближайшего целого значения. Если число равно своему округленному значению, значит, оно целое. Счетчик countIntegers увеличивается на 1 для каждого целого числа, и в конце программа выводит количество найденных целых чисел.