Бублічистичний, науковий, політичний, морально етичний, економічний
<span>5) 4096 бит.
0.5 килобайт = 512 байт.
1 байт = 8 бит
512 байт = 4096 бит</span>
Как-то так:
//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
Uses Crt;
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Write('Введите массив целых чисел X(',N,'): ');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i] > 0 then k:=k+1
End;
WriteLn('Количество положительных элементов X(',N,'): ',k);
ReadLn
End.
Пример работы программы:
Введите массив целых чисел X(10): 1 2 3 -4 -5 -6 7 8 9 0
Количество положительных элементов X(10): 6
<span>Бант - рант - рана - раса - роса - коса</span>