Сделайте, 1. ввести с клавиатуры число. если оно двузначное, на экране должно появиться сообщение «это число двузначное», в остальных случаях появляется сообщение «число не является двузначным». 2. ввести с клавиатуры трехзначное число. если число четное, вывести на экран сообщение «это число четное», в остальных случаях сообщение «число не является четным». 98 !

#1.

var n,i,flag:integer;

begin  

readln (n);

flag:=0;

while n>0 do  

begin

 i:=n mod 10;

 n:=n div 10;

 flag:=flag+1;

end;

if (flag = 2)  

  then writeln ('Это число двузначное')

else  

 writeln ('Число не является двузначным');

end.

#2.

var n:integer;

begin  

readln (n);

if (n mod 2 = 0) then  

writeln ('Это число четное')

else

 writeln ('Число не является четным');

end.

Компьютер - сложная вычислительная техника, которая человеку, упрощая процесс создания и хранения информации. Одна из главных составляющих компьютера - это системный блок, монитор, клавиатура и компьютерная мышь - без них никуда. Процессор отвечает за все процессы, происходящие в системе. Оперативная память осуществляет эти самые действия. Любители компьютерных игр не обойдутся без хорошей видеокарты, с её повышается графика, за которую так же отвечает монитор и графический драйвер. Материнская плата тоже неотъемлемая часть ПК. Компьютеры- сложная и полезная техника.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 try

   var vData := ReadlnString('Введите дату по образцу дд.мм.гг:');

   if vData = '' then Exit;

   var s := vData.MatchValue('(\d\d\.){2}\d\d');

   if s = vData then

   begin

     var d := DateTime.Parse(s);

     $'День: {d.Day}{NewLine}Месяц: {d.Month}{NewLine}Год: {d.Year}'.Println

   end

   else

     'Дата введена не по образцу'.Println

 except

   'Такой даты в календаре не существует'.Println

 end

end.