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