Program RLN; var x:byte; begin writeln('Введите число, чтобы узнать, какому месяцу оно соответствует:'); Readln(x); Case x of 0: writeln('Такого месяца не существует'); 1: writeln('Январь.'); 2: writeln('Февраль.'); 3: writeln('Март.'); 4: writeln('Апрель.'); 5: writeln('Май.'); 6: writeln('Июнь.'); 7: writeln('Июль.'); 8: writeln('Август.'); 9: writeln('Сентябрь.'); 10: writeln('Октябрь.'); 11: writeln('Ноябрь.'); 12: writeln('Декабрь.'); 13..1000: writeln('Такого месяца не существует.'); end; end.
Var a: array [1..10] of integer; pr, i, kol, sum: integer;begin sum := 0; pr := 1; for i := 1 to 10 do a[i] := -50 + random(100); for i := 1 to 10 do begin if (a[i] mod 2 = 1) or (a[i] mod 2 = -1) then // 1 sum := sum + a[i]; if (i mod 2 = 0) then // 2 pr := pr * a[i] else if (i mod 2 = 0) and (a[i] = 0) then pr := 0; end; for i := 1 to 10 do if (a[i] mod 10 = 0) then a[i] := 0; for i := 2 to 9 do // 3 begin if a[i] = 0 then if (a[i + 1] <> 0) and ((i + 1) mod 2 = 0) and (a[i - 1] <> 0) and ((i - 1) mod 2 = 0) then kol := kol + 1; end; writeln('сумму нечетных элементов =', ' ', sum); writeln('произведение элементов =', ' ', pr); writeln('число пар соседних элементов =', ' ', kol); end.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (sn,pp,kp):=(0,1,0); var n:integer; repeat Read(n); if (n<0) and n.IsOdd then sn+=n else if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end until n=0; if sn=0 then begin Writeln('Нет отрицательных нечетных чисел'); if kp=0 then Writeln('Нет положительных чисел, кратных 3') else Writeln('Произведение положительных чисел, кратных 3: ',pp) end else begin Writeln('Сумма отрицательных нечетных чисел: ',sn); if kp=0 then Writeln('Нет положительных чисел, кратных 3') else Writeln('Произведение положительных чисел, кратных 3: ',pp) end end.
var x:byte;
begin
writeln('Введите число, чтобы узнать, какому месяцу оно соответствует:');
Readln(x);
Case x of
0: writeln('Такого месяца не существует');
1: writeln('Январь.');
2: writeln('Февраль.');
3: writeln('Март.');
4: writeln('Апрель.');
5: writeln('Май.');
6: writeln('Июнь.');
7: writeln('Июль.');
8: writeln('Август.');
9: writeln('Сентябрь.');
10: writeln('Октябрь.');
11: writeln('Ноябрь.');
12: writeln('Декабрь.');
13..1000: writeln('Такого месяца не существует.');
end;
end.