Дано целое число. Если оно является положительным, то вычесть из него 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.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Функция кнопки ПРЕДЫДУЩИЙ ВИД в скетч-ап? ответьте
Автор: Ивлев1508
Надо составить алгоритмы:блок схемы и светвления
Автор: Igorevich_Aleksandrovna1599
написать код этого сайта в
Автор: Emasterova77
Составить план на тему "война пк и книги "!
Автор: martinzdraste
Пример таблицы с которой вы встречались в повседневной жизни
Автор: Суравцова_Алексей669
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