Пожаалуйста) В программе...

Тема в разделе "Информатика", создана пользователем Викенция Потаповна, 3 янв 2010.

  1. Пожаалуйста) В программе Geany Задача 1. Определить четность/нечетность числа, введённого пользователем (использовать операцию mod, которая находит остаток от деления).
     
  2. idea42

    idea42 New Member

    1)uses crt;
    var a:integer;
    begin
    readln(a);
    if a mod 2=0 then writeln('четное') else writeln('нечетное');
    end.
    2)uses crt;
    var x,a,b,i,k:integer;
    begin
    writeln('введите интервал');
    read(a,b);
    writeln('введите число');
    readln(x);
    for i:=a to b do
    if i=x then inc(k);
    if k=0 then writeln('нет') else writeln('да');
    end.
     

Поделиться этой страницей

Наша группа