Разработать схему алгоритма, который запрашивает ввод целого числа в переменную B и выводит это число на экран. Отладить алгоритм и проверить правильность его работы на числах 1, -5, 256, 10455.
Мне НЕ нужно на Паскале, мне нужно с ДАНО и РЕШЕНИЕ:
всего ОДНО действие
Не понятно, но может быть так:
Дано:
a = 1;
b = -5;
c = 256;
d = 10455;
Решение:
var i: integer;
a:=1;
b:=-5;
c:=256;
d:=10455;
begin
for i:=1 to 4 do
if Frac(a)=0 writeln(Целое); else writeln(Не Целое);
if Frac(b)=0 writeln(Целое); else writeln(Не Целое);
if Frac(c)=0 writeln(Целое); else writeln(Не Целое);
if Frac(d)=0 writeln(Целое); else writeln(Не Целое);
end.
Или может быть так:
Дано:
frac(B) = 0 - это говорим о том, что дано целое число B
Решение:
if Frac(x)=0 then writeln(x - целое число!) else writeln(x - дробное число!)
Или так:
var z,x:real; begin writeln(Vvedite X:); readln(x);z:=frac(x); if z=0 then writeln(Целое) else writeln(Не Целое);
Или так сразу проверить все числа и вывести циклом:
Другие вопросы в разделе - Информатика
1.В HTML-коді веб-сторінки в кутових дужках < > записують: ...
Дано число n. Составить алгоритм поиска первого натурального числа, ...
Составить алгоритм решения задачи для определения большей скорости: одно ...
1.До якої категорії програм належить програма Audacity? А.Графічний редактор ...