<span>//2.19 var a,a1,a2,a3,a4:integer; begin readln(a); a:=abs(a); a1:=a div 1000; a2:=a div 100 mod 10; a3:=a mod 100 div 10; a4:=a mod 10; writeln('S = ',a1+a2+a3+a4); writeln('P = ',a1*a2*a3*a4); end<span>.
Пример: 4318 </span><span>S = 16 P = 96
//2.14 (для натуральных чисел) var a:integer; begin readln(a); a:=a mod 100*10 + a div 100; writeln('a = ',a); end.
Пример: 431 <span>a = 314
//4.23 а) var a,a1,a2:integer; begin readln(a); a:=abs(a); a1:=a div 10; a2:=a mod 10; if a1 > a2 then writeln(a1,' > ',a2) else if a1 < a2 then writeln(a1,' < ',a2) else writeln(a1,' = ',a2) end.
Пример: 43 4 > 3
//4.23 б) var a,a1,a2:integer; begin readln(a); a:=abs(a); a1:=a div 10; a2:=a mod 10; if a1 = a2 then writeln(a1,' = ',a2) else writeln(a1,' <> ',a2) end.
Программы написаны на языке PascalABC.NET v3.3 (сборка 1549) 2.19 var num, a, b, c, d: integer; begin readln(num); //Число a := num div 1000; //Первая цифра b := num div 100 mod 10; //Вторая цифра c := num div 10 mod 10; //Третья цифра d := num mod 10; //Четвёртая цифра writeln(a + b + c + d); //Сумма цифр writeln(a * b * c * d) //Произведение цифр <span>end.
2.14 var num: integer; begin readln(num); //Число writeln(num mod 100 * 10 + num div 100) //Берём остаток от деления на 100, т. е. последние две цифры, умножаем на 10 и прибавляем первую цифру end.
4.23 <span>var </span></span> num: integer; begin readln(num); //Число if num div 10 > num mod 10 then writeln('Первая цифра больше') else if num div 10 < num mod 10 then writeln('Вторая цифра больше') else writeln('Цифры одинаковы') <span>end.</span>
Ничего себе числа здесь... В общем, <span>4 294 967 296, если я нигде не ошибся, это 2^32 => каждый пиксель занимает 32 бит памяти. 32*1024*1280=2^5*2^10*2^8*5=2^23*5 бит = 2^20*5 байт = 5 Мбайт. Так что да, из предложенных вариантов подходит только карта на 64 Мбайта.</span>
Только программы (без примеров): А) CLS DIM a(1 TO 10) AS INTEGER PRINT "Введите 10 чисел" FOR i = 1 TO 10 INPUT a(i) NEXT i max = a(1) FOR i = 2 TO 10 IF a(i) > max THEN max = a(i) NEXT i PRINT "max = ";max END
Б) CLS INPUT "Введите количество элементов массива"; n DIM a(n) FOR i = 1 TO n INPUT "Введите значение элемента: "; a(i) NEXT i max = a(1) FOR i = 2 TO n IF a(i) > max THEN max = a(i) NEXT i PRINT "max = ";max END