Подскажите как выглядит паскаль - программа, которая - вопрос №9096486 от Yoidzokumi 23.04.2023 04:16

Question

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

Yoidzokumi · Answer

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.