С помощу 17 мищц челюсти и язика
1. Вар сам напиши.
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.
2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.
325 = 101000101(2)
325 = 505(8)
325 = 145(16)
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(10,-15,15); a.Println;
var min:=a[0]; var max:=min;
foreach var e in a do
if e<min then min:=e
else
if e>max then max:=e;
Writeln('min=',min,', max=',max);
end.
<u><em>Тестовое решение:</em></u>
-4 -3 3 -9 15 11 4 15 -11 10
min=-11, max=15
Языки второго поколения (2GL) создавались для того, чтобы облегчить
тяжёлую работу по программированию, перейдя в выражениях языка от
низкоуровневых машинных понятий ближе к тому, как обычно мыслит
программист. Эти языки появились в 1950-е годы, в частности, такие языки
как Фортран и Алгол.
Наиболее важной проблемой, с которыми столкнулись разработчики языков
второго поколения, стала задача убедить клиентов в том, что созданный
компилятором код выполняется достаточно хорошо, чтобы оправдать отказ от
программирования на ассемблере. Скептицизм по поводу возможности
создания эффективных программ с помощью автоматических компиляторов был
довольно распространён, поэтому разработчикам таких систем должны были
продемонстрировать, что они действительно могут генерировать почти такой
же эффективный код, как и при ручном кодировании, причём практически
для любой исходной задачи.