512*384*32/1024/8 КБ, т.е. 768 КБ или 0,75 МБ или 6 Мб
1 буква несет 4 бита информации.
36 символов, включая пробелы
ответ: 4 бита * 36 = 144
По моему хотению явись или откройся
program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
int[] A = File.ReadAllText("D:\\f.txt").Split().Select(x=>int.Parse(x)).ToArray();
// for(int i = 0; i < A.Length; i++)
// Console.Write("{0} ",A[i]);
using (StreamWriter g = File.CreateText("D:\\g.txt"))
{
Console.WriteLine("\n{0}", "Введите номер задания (0 - а, 1 - б)");
int C = int.Parse(Console.ReadLine());
C = 5 + C * 5;
int i = 0;
while (i < A.Length)
{
for (int j = i; j < i + C; j++)
g.Write("{0} ",A[j]);
i += C*2;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i -= C;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i += C*2;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i += C;
}
}
Console.ReadKey();
}
}
}
