Дано целое число. Если оно является положительным, то вычесть из него 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.
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
end.
надеюсь что так можно? ;D