Program 1123; type data = record g: 0..3000; mes: 1..12; day: 1..31; end; var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g); d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin if day=32 then begin mes:=mes+1; day:=1; end; end; 4,6,9,11: begin if day=31 then begin mes:=mes+1; day:=1; end; end;2: begin if g mod 4=0 then begin if day=30 then begin mes:=mes+1; day:=1; end; end else begin if day=29 then begin mes:=mes+1; day:=1; end; end; end; 12: begin if day=32 then begin g:=g+1; mes:=1; day:=1; end; end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.
По данному тексту можно понять только что У Светы был белый стаканчик в которым был банановый коктейль, чтоб узнать про Аню или Настю нужно ещё немного текста
Program p1; var sr,sr1:real; p,i:integer; begin Write('Введите число учащихся: '); Readln(p); sr:=0; sr1:=0; for i:=1 to p do begin Write('Введите средний балл ученика: '); readln(sr1); sr:=sr+sr1; end; Writeln('Средний балл группы равен: ',sr/p); <span>end.</span>