4. Малый размер, большое количество цветов, качество изображения, универсальность в выводе изображения.
5. Любой компьютер её использует для вывода на экран изображения.
Как-то так:
//fpc 3.0.0
program HelloWorld;
var
total: integer; // результат суммирования
ent, last: integer; // ввод, подсчет
begin
total := 0; // начальная сумма
// 30 можно поменять на любое число, чтоб цикл не шел вечно. А если надо вечно, то поменять условие на 1 < 2
while total <= 30 do
begin
// просим число
write('Enter number: ');
readln(ent);
// получаем только 4-х значные
if (ent < 1000) or (ent > 9999) then
Continue;
// берем последнюю цифру
last:= ent mod 1000;
last:= last mod 100;
last:= last mod 10;
// складываем
total:= total + last;
// выводим результат
writeln(total);
end;
end.
Результат можно посмотреть тут: https://rextester.com/ENTY66578
2048 = 2^11
1024 = 2^10
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байт
1 байт = 8 бит
2048 Мбайт = 2^11 Мбайт = 2^21 Кбайт = 2^31 байт = 2^34 бит
Ответ: 34
Если тебе разрешили пойти в цирк, то ты идешь туда, иначе, остаешься дома. Если в кассе остались билеты, то ты покупаешь их, иначе, возращаешься домой. Если у тебя хватает денег, то ты покупаешь билет, иначе, возращаешься за деньгами.
ps если тебе в это время по-надобилось пойти домой, то ты идешь тобой, иначе продолжаешь действия )
<span>var m:array[1..100] of integer;
i,a,n:integer;
begin
write('Ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ*: ');readln(n);
write('Ââåäèòå ÷èñëî À: ');readln(a);
writeln('Ââåäèòå Г¬Г*Г±Г±ГЁГў: ');
for i:=1 to N do
readln(m[i]);
writeln('ГЊГ*Г±Г±ГЁГў: ');
for i:=1 to N do
M[i]:=m[i]-a;
for i:=1 to N do
write(M[i],' ');
end<span>.</span></span>
