program name; var i,n,x,summa,count:integer; nechet:boolean; begin Writeln('Vvedite n: '); readln(n);//получаем n summa:=0; count:=0; i:=1; if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет while i<n do begin//пока число меньше n if(nechet) then//если число нечентное begin summa:=summa+i*i*i;//прибавляем к сумме куб этого числа end else//если число четное begin summa:=summa+i*i;//прибавляем квадрат числа end; i:=i+1;//прибавляем число на 1 end; writeln(' summa: ', summa);//выводим сумму readln(); end.
Паскаль АВС. Программа вывводит дату следующего дня. Чтоб не утяжелять программу, не стал писать проверку правильности введения даты - то есть пользователь должен вводить только правильные цифры :)
Program Upmixer; var day, month, year:integer; begin writeln('Введите дату:'); write('День:'); read (day); write('Месяц:'); read (month); write('Год:'); read (year); day:=day+1; {если было введено 29 февраля високосного года} if (((year mod 4)=0) and ((year mod 100)<>0) and (month=2) and (day=30)) then begin day:=1; month:=month+1; end; {если было введено 28 февраля невисокосного года} if (((year mod 4)<>0) and (month=2) and (day=29)) then begin day:=1; month:=month+1; end; {другие дни} if ((day=31) and ((month=4) or(month=6) or (month=9) or (month=11))) then begin day:=1; month:=month+1; end; if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month=10))) then begin day:=1; month:=month+1; end; {31 декабря} if ((day=32) and (month=12)) then begin day:=1; month:=1; year:=year+1; end; writeln('Завтра ', day,' ',month,' ',year); end.
1) Да
2)Нет
3) -1
4) -5
5) /2
6) 0
7) 0
Вроде так