Регистрация
kleyman200404
07.05.2022 10:43
Информатика
Есть ответ 👍

Pascal. как написать фрагмент кода, который будет определять, целое число, или дробное?

236
279
Посмотреть ответы 2

Ответы на вопрос:

rodionowa2003
rodionowa2003
4,4(60 оценок)
Var  p,k: real; begin  writeln('введите число: ');   readln(p);   k: =frac(p); if k=0 then write('целое число') else write('дробное число'); readln;   end.
Csgopro1
Csgopro1
4,4(22 оценок)
Var       d, s, i, n: integer; begin       readln(n);       readln(d);             for i : = 1 to n do       begin               readln(d);               if d mod 3 = 0 then s : = s + d;       end;             writeln('s = ', s); end.

Популярно: Информатика