Скорее всего Г: визуальная-зрение,аудиальная-слух,и тд...
1.
const n=5;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i], ' ');
end.
2.
const n=10;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 3 = 0 then
write(a[i], ' ');
end.
Цвета: белый синий красный зелёный
Квадрат : белый синий красный зелёный
Круг: белый синий красный зелёный
Ромб: белый синий красный зелёный
Треугольник: белый синий красный зелёный
Круг не белый и не зелёный; Треугольник не синий и не зелёный
Квадрат : белый синий красный зелёный
Круг: синий красный
Ромб: белый синий красный зелёный
Треугольник: белый красный
Синяя фигура лежит между ромбом и красной фигурой.
Квадрат лежит между треугольником и белой фигурой
Ромб: белый
Квадрат : синий
Треугольник: красный
Круг: синий красный (Зелёный ? => Неверно)
Синяя фигура лежит между ромбом и красной фигурой.
Квадрат лежит между треугольником и белой фигурой
//Ромб
Квадрат : зелёный
Треугольник: красный
Круг: синий
Ромб: белый
100 мегабит это 1024000 килобит. 1 мегабит = 1024 килобита.
1024000 килобит это 104857600 бит. 1 килобит = 1024 бита.
104857600 бит это 13107200 байт. 1 байт - 8 бит.
То есть, теоретически 13107200, но на практике может быть значительно меньше.
Ответ: 13107200
Program Stoimost;
var a,b,s,c :integer;
begin
writeln('Введите стоимость за минуту разговора ');
read(b );
writeln('Введите количество минут ');
read(s);
writeln('Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье, то введите цифру 2, а если в другие дни, то 0 ');
read(a);
if a:=1 then
c:= b*s*0,7;
if a:=2 then
c:=b*s*0,65;
if a:=2 then
c:=b*s;
write(c);
end.
скорее всего не правильно, но попробуй