Втакой программе, пишет что "=" не применимо к var n, a, k: integer; begin readln(n, a); if (n+a) mod 2=0 or (n+a) mod 2=1 then writeln(k - (k div n) * n ) end.

243

467

Посмотреть ответы 3

Ответы на вопрос:

hdhshuuyfftf

Информатика

4,5(49 оценок)

Утебя еще переменная "к" не реализована, а ты ее используешь - это еще 1 ошибка

Marg06

Информатика

4,4(58 оценок)

Паскаль требует каждое логическое выражение выделять в "()", поэтому нужно написать if ((n+a) mod 2 = 0) or ((n+a) mod 2 = 1) и будет тебе счастье

круто45

Информатика

4,8(79 оценок)

1) точность вычисления в программе не задается. указано только количество цифр дробной части (3), которое требуется вывести на экран. var x,y,a: real; begin write('x = '); readln(x); write('y = '); readln(y); if x*x-x-4> =0 then begin a: =((x*y)/(x+y))/(1+sqrt(x*x-x-4)); writeln('a = ',a: 5: 3); end else writeln('корень из отрицательного числа'); end. 2) var a,b,c,d: real; begin writeln('введите a, b, c, d: '); readln(a,b,c,d); if (a=d) then if (c=b) then writeln('бесконечно много решений') else writeln('решения нет') else writeln('x = ',(c-b)/(a-d)); end. пример: введите a, b, c, d: 2 1 4 3x = -3