Даны три натуральных числа А, В, С, которые обозначают число, месяц, год. Найти
порядковый номер даты, начиная отсчет с начала года. Pascal

172

422

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

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

aassdfgb

Информатика

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

ну начиная с А а заканчивая В:

Анастасия2787

Информатика

4,6(75 оценок)

заканчивая б начало а вот так

mihscka0605

Информатика

4,6(76 оценок)

var a: array[1..20]of integer; i,k,z: integer; begin randomize; for i: = 1 to 20 do begin a[i]: = random(200)-100; write(a[i],' '); end; writeln; for i: = 2 to 20 do begin k: = (a[i-1]+ a[i]); if k mod 2 = 0 then begin z: = z +1; write(a[i-1]: 6, a[i]: 3); end; end; writeln; write(z); end.