54 символа
1 символ=1байт=8 бит
54*8=432бит
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт
Решение на C. Переведи на синтаксис паскаля :)
#include <stdio.h>
int pearCount;
int friendsCount;
int main(int argc, const char * argv[]) {
printf("Количество груш: ");
scanf("%i", &pearCount);
printf("Количество подруг: ");
scanf("%i", &friendsCount);
if (pearCount % friendsCount != 0) {
printf("Количество груш '%i' Количество подруг '%i': нет\n", pearCount, friendsCount);
} else {
printf("Количество груш '%i' Количество подруг '%i': да\n", pearCount, friendsCount);
}
return 0;
}
N=2^I N=65536 следовательно I=16
V=1280*1024*16=20971520 бит=2621440 байт=2560кБайт=2,5 Мбайт
Ответ:
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.