0,25 Кбайт = 2048 бит
2048:8=256
program zadacha;
var
a:integer;
begin
read(a);
if (a>=10)and(a<=20)then
write('Принадлежит')
else
write('Не принадлежит')
end.
Вот код программы для этой прогрессии на С# и скриншот с результатом.
float ss = 0;
float s = 1;
Console.WriteLine("Введите n");
float n = Convert.ToInt16 ( Console.ReadLine());
Console.WriteLine("---------------------------");
for (float i = 2; i <= n; i++)
{ ss = s; s -= (1 / i); Console.WriteLine(ss + "-" + 1 / i + "="+s+"\n\r"); }
Console.WriteLine("---------------------------");
Console.WriteLine("Конечный результат s = " + s);
<span> Console.ReadLine();</span>
Пусть Х - количество черных автомобилей
У - количество серых
Рч = x/(x+y+18)
= 128
x+y+18 = 128x (1)
P(не серый) = (х+18)/(x+y+18)
= 32
x+y+18 = 32x+576 (2)
из того что, левые части выражений (1) и (2) равны, следует что равны и правые части, получим
128х=32х+576
96х = 576
х=6
Ответ: 6 черных автомобилей
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
