Должно быть так:
If a > 0 then a:=3 else a:=4; - лишняя запятая
If 10 = z then z:=z+1 else z:= 1; - лишнее двоеточие
В последнем операторе возможны различные варианты, но
выбрать один нельзя, не зная исходной формулы.
Вот варианты:
If k > 0 then writeln ('да') else if k<0 then writeln ('нет');
If k > 0 then writeln ('да') else writeln ('нет')
Компа́кт-диск - <span>оптический носитель информации в виде диска с отверстием в центре, информация с которого считывается с помощью лазер</span>
<span><span>Флэш-карта - <span>Устройства, выполненные на одной микросхеме (кристалле) и не имеющие подвижных частей, основаны на кристаллах электрически перепрограммируемой флэш-памяти</span></span></span>
<span>Оперативная</span><span> память-<span>устройство, </span></span>
<span>предназначенное для хранения обрабатываемой информации (данных) и программ, управляющих процессором </span><span>обработки</span><span> информации</span><span>Кэш-память<span> – устройство, имеющее очень короткое время доступа к данным. Встроенная в микросхему сверхбыстрая память. Обычно имеет размер 256 или 512 Кбайт, в мощных компьютерах до 1Гб и более.</span></span>
2
а)
INPUT "Ширина первого прямоугольника";A1
INPUT "Длина первого прямоугольника";B1
INPUT "Ширина второго прямоугольника";A2
INPUT "Длина второго прямоугольника";B2
IF A1/A2=B1/B2 THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"
б)
PRINT '"Первый треугольник:"
INPUT "Первая сторона";A1
INPUT "Вторая сторона";B1
INPUT "Третья сторона";C1
PRINT '"Второй треугольник:"
INPUT "Первая сторона";A2
INPUT "Вторая сторона";B2
INPUT "Третья сторона";C2
IF (A1/A2=B1/B2) AND (B1/B2=C1/C2) THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"
1-а
2-b
3-a,c
4-c
5-b или c
6-c
7-a
8-b или c
9 не видно
I = 8 бит, k = 57(без учета точки,но с учетом пробельных символов);
I = i*k;
I= 8 *57= 456 бит
ответ 456