19.05.2011, 21:50 | #1 (permalink) |
Member
Регистрация: 19.05.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить четыре задачи в Паскале
2. Решить неравенство а*х+в<0. 3. Дата некоторого дня определяется тремя натуральными числами: g(год), m(порядковый номер месяца) и n(число). Определить дату предыдущего дня. 4. Найти сумму 1+1/2+1/3+...1/n Заранее благодарна! |
19.05.2011, 21:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В ранее созданных темах можно найти важный ответ Помогите решить задачи на C++ Помогите решить две задачи в турбо паскале Помогите решить две задачи в С++ |
19.05.2011, 22:56 | #2 (permalink) | ||||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Извольте:
Цитата:
Код:
VAR a,b,c,d:ShortInt; BEGIN write('a= '); readln(a); write('b= '); readln(b); write('c= '); readln(c); write('d= '); readln(d); If ((c=a-1) or (c=a+1)) and (d=b-1) then WriteLn('YES!') else WriteLn('NO!'); Readln END. Цитата:
Код:
VAR a,b,x:Real; BEGIN write('a= '); readln(a); write('b= '); readln(b); If a>0 then WriteLn('x < ',-b/a) else If a<0 then WriteLn('x > ',-b/a) else WriteLn('No solution!'); Readln END. Цитата:
Код:
VAR g,m,n,g1,m1,n1:Word; BEGIN write('g= '); readln(g); write('m= '); readln(m); write('n= '); readln(n); If (m=1) and (n=1) then begin g1:=g-1; m1:=12; n1:=31; end else begin g1:=g; If n>1 then begin m1:=m; n1:=n-1; end else begin m1:=m-1; Case m of 2,4,6,8,9,11: n1:=31; 5,7,10,12: n1:=30; else begin if (((g mod 4)=0) and ((g mod 100)>0)) or (((g mod 4)=0) and ((g mod 400)=0)) then n1:=29 else n1:=28; end; end; { Case } end; end; WriteLn('Previous date is ',n1,'.',m1,'.',g1); Readln END. Цитата:
Код:
VAR i,n:WORD; Sum:Real; BEGIN Write('n= '); ReadLn(n); Sum:=0; For i:=1 to n do Sum:=Sum+1/i; WriteLn('Sum= ',Sum); ReadLn END. |
||||
19.05.2011, 23:34 | #3 (permalink) |
Member
Регистрация: 19.05.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
cпс огроменное!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|