Напишите программу, которая запрашивает значения двух перемнных и выводит их разность. приглашение к вводу каждого числа произведите в отдельных строках. вывод результата сопроводите объяснением.
var a,b: integer; begin writeln('Введите первое число: '); readln(a); writeln('Введите второе число: '); readln(b); writeln('Разность чисел ',a,' и ',b,' = ',a-b); end.
Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k for j = 1 to l x(i, j) = rnd * 21 - 10 print using "###"; x(i, j); print ; " "; next j print next i for i = 1 to l * 4 - 1 print ; "_"; next i print for n = 1 to l for i = 1 to l - n - 1 if x(i, 2) < x(i + 1, 2) then b = x(i, 2) x(i, 2) = x(i + 1, 2) x(i + 1, 2) = b end if next i next n for i = 1 to k for j = 1 to l print using "###"; x(i, j); print " "; next j print next i end
