Программа, определяющую, какая цифра введена – четная или нечетная.

[JustinTI]

1. Составить программу, определяющую, какая цифра введена – четная или нечетная. Учесть все варианты неверного ввода.
2. Дана бесконечная последовательность целых чисел. С помощью бесконечного цикла считать сумму и количество членов последовательности до тех пор, пока не встретится член, равный нулю

[Sm1Le]

1.Четная или нет. При помощи деления по модулю на 2.
2.Проверка на ввод. Можно на Проверку символа Аски таблицы.
3.Не очень что означает бесконечность чисел( Можно просто бесконечный ввод по Одному числу за раз, И проверять каждый ввод на = 0.

[microlab]

prorgam 1;
uses crt;
var x:integer;
begin
clrscr;
writeln('vvedite hiclo x ');
readln(x);
if x mod 2 = 0 then
begin
writeln('hiclo hetnoe');
end
else
begin
writeln('niclo ne hetnoe');
end
readln;
end.

[Sm1Le]

Сообщение от JustinTI

1. Составить программу, определяющую, какая цифра введена – четная или нечетная. Учесть все варианты неверного ввода.

Сообщение от microlab

prorgam 1;
uses crt;
var x:integer;
begin
clrscr;
writeln('vvedite hiclo x ');
readln(x);
if x mod 2 = 0 then
begin
writeln('hiclo hetnoe');
end
else
begin
writeln('niclo ne hetnoe');
end
readln;
end.

- Все учел ? - (Проверка на =0 или на ввод символа или на пустой ввод)

[Sm1Le]

radln(X)

if integer(x)>59 and Integer(x)<48 then
begin
Writeln('Error');
end
if x='' then
begin
Writeln('Error');
end

[JustinTI]

спасибо огромное, с первой я разобрался!!!!!

[JustinTI]

а вторую?????((((