Цикл for. pascal заранее ! 1.напечатать таблицу умножения на 4. вывод на экран должен быть в виде «2*4=8». 2.вывести на экран все числа на промежутке [234..789] заканчивающиеся на 2 или 3 и начинающиеся на четную цифру 3.вводятся 4 числа: a, b, c и d. выведите все числа на отрезке от a до b, остаток c при делении на d.

1)

var i: integer;

begin

for i:=1 to 10 do writeln(i,'*4=',i*4);

end.

2)

var i: integer;

begin

for i:=234 to 789 do

if((i mod 10=2) or (i mod 10=3)) and ((i div 100) mod 2=0)

then write(i,' ');

end.

3)

var a,b,c,d,i: integer;

begin

readln(a,b,c,d);

for i:=a to b do

if(i mod d=c) then write(i,' ');

end.

PascalABC.NET

begin

 // 1

 for var i := 1 to 10 do

   Writeln(i, '*4=', i * 4);

 // 2

 for var i := 234 to 789 do

   if (i div 100 mod 2 = 0) and

     ((i mod 10 = 2) or (i mod 10 = 3)) then

       Print(i);

 Writeln;

 // 3

 var a, b, c, d: integer;

 Read(a, b, c, d);

 for var i := a to b do

   if i mod d = c then

     Print(i)

end.

Каждый компьютер имеет свой машинный язык, то есть свою совокупность машинных команд, которая отличается количеством адресов в команде, назначением информации, задаваемой в адресах, набором операций, которые может выполнить машина и др.

При программировании на машинном языке программист может держать под своим контролем каждую команду и каждую ячейку памяти, использовать все возможности имеющихся машинных операций. При этом можно составить такую компактную, маленькую программу, код которой может быть исполнен в любом самом примитивном микроконтроллере, чипе. В этом ценность программирования в кодах машины.

Но процесс написания программы на машинном языке очень трудоемкий и утомительный. Программа получается громоздкой, труднообозримой, ее трудно отлаживать, изменять и развивать.

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

Объяснение:

Достоинства и Недостатки сам найдешь.

var

i, a, b, n, n2, j: longint;

s: string;

flag: boolean;

begin

Write('Введите через пробел границы диапазона: ');

Readln(a, b);

if b < a then begin n := a; a := b; b := n end;

if a < 11 then a := 11;

for i := a to b do

begin

Str(i, s);

n := Length(s); n2 := n div 2; flag := true; j := 1;

repeat

flag := (s[j] = s[n - j + 1]);

j := j + 1

until (not flag) or (j > n2);

if flag then Write(i, ' ')

end;

end.

Тестовое решение:

Введите через пробел границы диапазона: 800 1500

808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999

Объяснение: