Первый оператор выбора If. Последующие операторы elif
Образец программы с выбором:
Вводим переменную например расстояние S
S=int(input())
Вводим первичное условие
If (S>=500):
Выводим результат
Print(“Очень далеко”)
Вводим вторичное условие
Elif (S 300):
Выводим результат
Print(“Далеко”)
вводим третье условие
Elif (S 300 читается как S меньше 400 или S больше 300
Составьте исходный код для следующей задачи:
Если а>0 и b>0 то S=a/b
Иначе если а<0 и b<0 то S=a*b
program raf105;
var
s,s2: string;
i,j,n,price,points: integer;
begin
write('Количество задач в карусели: ');
readln(n);
write('ответы команды: ');
readln(s);
for i:=1 to length(s) do
if s[i]<>' '
then s2:= s2 + s[i];
price:= 3;
for i:=1 to length(s2) do
begin
if s2[i]='1'
then begin
points:= points + price;
price:= price + 1;
end
else for j:=1 to 3 do
if price > 3
then price:= price-1;
end;
writeln('Итоговый : ',points);
end.
PascalABC 3.4.2var n, i, x, min: integer;
begin
n:=12; //задаем количество чисел.
min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".
Randomize;
for i:=0 to n-1 do //цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"
begin
x:=Random(31)-15; //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].
Writeln(x); //выводим значение "x".
if (min > x) and (x mod 2 <> 0) then //если минимум больше полученного "x" и "x" - нечетный, то
min:=x; //минимуму присваиваем значение "x".
end;
Writeln('Наименьшее нечетное число последовательности: ',min); //выводим ответ.
end.