Дано целое число. Если оно является положительным, то вычесть из него 2; в противном случае прибавить к нему 5. Вывести полученное число. Pr1;
var
N : ;
begin
Write('Введите целое число: ');
(N);
if N>0 then N:= N -2
else N:= ;
writeln(N);
end.
2. Ввести с клавиатуры количество , для того чтобы программа выставила отметку. (50-70 – отметка 3; 71-84 – отметка 4; 85-10 – отметка 5).
program ___;
var N : Integer;

Write('Введите количество : ');
Readln(N);
if () and (N =71) and (N __ then k:=k+1;
if N2>__ then ;
if N3>__ then k:=k+1;
writeln(__);
end.

CoolGirl78    2   24.01.2021 14:49    6