1) определить, является ли заданное целое число а двузначным числом. (разветвляющийся алгоритм) 2) вывести все нечетные однозначные числа. (цикл) 3) найти сумму нечетных элементов одномерного массива. (массив) все в паскале
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом Введите количество элементов массива:'); readln(n); write('Введите элементы массива:'); for i:=1 to n do read(a[i]); i:=1; S:=0; while i<=n do begin S:=S+a[i]; i:=i+2; end; write('S=',S); end.
16 Кбайт = 16 384 байт Скорость передачи 4096байт в секунду, значит первый файл передастся за: 16384/4096=4 секунды
Вот с второй частью, тут либо ошибка, и: 1) имелось ввиду 256секунд, либо чего-то забыли дописать из условия. Например количество секунд, а скорость соединения 256байт\секунду. 2) Либо имелось ввиду, что время затраченное на передачу файла такое же, как и в первом случае. Для первого случая 4096байт*256секунд=передано 1048576 байт = 1024 килобайт Для второго случая: 256байт*4секунды=передано 1024байта = 1килобайт
Namespace Вывод { class Program { static void Main(string[] args) { int n = 10; int[] Mass = new int[n]; Random R = new Random(); for (int i = 0; i < n; i++) {Mass[i] = R.Next(0, 30);} Console.Write("\n--------- Массив -------------\n"); for (int i = 0; i < n; i++) { Console.Write(Mass[i] + " "); } Console.ReadKey(); } }
1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.