Задание по информатике.

сделать таблицу и построить график функции у = 4х -5

1. mod - команда, при которой компьютер выводит на экран остаток (mOd, тип O - остаток :))

Это означает, что c= 500 mod 23 , c=17 - ответ

div - команда, при которой компьютер выводит на экран целое число от деления (dIv, типааа i - integer (число с английского) :))

Это означает, что a= 500 div 3 , a=166 - ответ

2. 5 -> 127

Можно составить алгоритм такой:

22122 - это порядок команд и ответ. Не трудно посчитать, как это получилось.

3. Длина цепочки ТОРГ равна 4, значит мы дублируем левый символ (Т).

У нас получается ТОРГТ, а оно не чётное, так как длина цепочки равна 5, значит добавляем к цепочке символ (М) в начало самой цепочки.

Получилось: МТОРГТ - ответ

Uses Crt;
Var
   A,B:integer;
   P:real;
   C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
   Begin
   P:=P*(B mod 10);
   if B mod 10 = A then C:=true;
   B:=B div 10
   End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.

uses Crt;
Var
   A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.

uses Crt;
Var
   A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
   Begin
   if B mod 10 <> A then C:=C*10+B mod 10;
   B:=B div 10;
   End;
While C<>0 do
   Begin
   B:=B*10+C mod 10;
   C:=C div 10
   End;
WriteLn(B);
ReadLn;
End.