Регистрация
iyutina2017
01.03.2020 13:25
Информатика
Есть ответ 👍

Нужно сделать 4 эти задания. 8 класс
Только не с интернета там не верно.

235
295
Посмотреть ответы 1

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

nikitayurev132p0c5ew
nikitayurev132p0c5ew
4,8(68 оценок)
Var a,k1,k2: integer; begin k1: =0; k2: =0; repeat write('a = '); readln(a); if a> 0 then k1: =k1+1   else if a< 0 then k2: =k2+1; until a=0; writeln('k1 = ',k1,'   k2 = ',k2); end. пример: a = 1 a = 5 a = 6 a = -3 a = 8 a = -2 a = 0 k1 = 4   k2 = 2

Популярно: Информатика