Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
1.Через поле и лесок
К нам примчался голосок.
Он пришел по проводам.
Слышно здесь, сказали – там.
(телефон)
2.Под крышей четыре ножки, А на крыше — суп да ложки. Четыре ноги, а ходить не может.
(стол)
3.На компьютерном столе
Помогает она мне.
Колесиком и кнопкой
Я управляю ловко.
(Мышка)
Ты написал вместо "begin" bedin. И за константу Pi брать не надо. В системе Pi уже есть, поэтому начальные значения ей давать не нужно. У тебя программа должна выглядеть вот так:
program n_2;
var r, c, s: real;
begin
writeln('Вычисление длины окружности и площади круга');
write('Введите r>>');
readln(r);
c:= 2*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end.
2^40бит=2^40/2^33ГБайт=2^7Гбайт=128Гбайт
Uses crt;
var x:integer;
begin
write('Лет:'); read(x);
if (x>=5) and (x<=18) then write('Ребенок.');
if (x>18) and (x<=45) then write('Молодой человек.');
if (x>55) and (x<=100) then write('Пожилой.');
<span>end.
Например,а про человека(какой он),не всегда можно по годам определить!</span>