YC = int(input("Какую машину желаете арендовать? Выберите порядковый номер (Subaru - 0, BMW - 1, Lamborgini - 2, Toyota - 3, Tesla - 4, Грузовик - 5 ): ")) #тут забыл поставить скобку
if YC == 0:
print("Машина Subaru арендована!")
if YC == 1:
print("Машина BMW арендована!")
if YC == 2:
print("Машина Lamborgini арендована!")
if YC == 3:
print("Машина Toyota арендована!")
if YC == 4:
print("Машина Tesla арендована!")
if YC == 5:
print("Машина Грузовик занята подождать.")
By = input()
#так-же можно все if после первого заменить на elif что-бы лишний раз не нагружать компьютер. Зачем надо компьютеру обрабатывать другие if если нет совпадающих условий у if?
program sailors;
var
i, quantity: integer;
mas: array [1..10] of integer;
begin
quantity := 0;
for i := 1 to 10 do
begin
read(mas[i]);
end;
for i := 1 to 10 do
begin
if (mas[i] >= 180) then
begin
inc(quantity);
writeln('Моряк: ', i, ' Рост: ', mas[i]);
end
end;
writeln('Количество моряков: ', quantity);
end.
Объяснение:
program sailors; // Название программы
var
i, quantity: integer; // Целочисленные переменная счетчик для массива и переменная для хранения количества моряков, подходящих под условие
mas: array [1..10] of integer; // Целочисленный массив с 10-ю элементами
begin // Начало программы
quantity := 0; // Переменная для хранения количества моряков, подходящих под условие, равна нулю
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
read(mas[i]); // Считываем значение с клавиатуры
end; // Конец цикла
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
if (mas[i] >= 180) then // Если значение элемента массива mas с индексом i ≥ 180, тогда
begin // Начало условного оператора
inc(quantity); // Значение переменной quantity увеличиваем на единицу
writeln('Моряк: ', i, ' Рост: ', mas[i]); // Выводим номер моряка и его рост
end // Конец условного оператора
end; // Конец цикла
writeln('Количество моряков: ', quantity); // Выводим количество моряков, попадающих под условие
end. // Конец программы
pascal
Объяснение:
var
a: array [1..21] of integer;
i, max, imax: integer;
begin
randomize;
WriteLn('Исходный массив:');
for i := 1 to 21 do
begin
a[i] := random(66) - 13;
Write(a[i], ', ');
end;
WriteLn;
WriteLn('Результат задания 1:');
for i := 1 to 21 do
begin
if i mod 2 = 0 then a[i] := -3 * a[i];
Write(a[i], ', ');
end;
WriteLn;
WriteLn('Результат задания 2:');
for i := 1 to 21 do
begin
if a[i] < 10 then a[i] := - a[i];
Write(a[i], ', ');
end;
WriteLn;
max := -13;
WriteLn('Результат задания 3:');
for i := 1 to 21 do
begin
if abs(a[i]) > 40 then a[i] := a[i] - 15;
Write(a[i], ', ');
if a[i] > max then
begin
max := a[i];
imax := i;
end;
end;
WriteLn;
a[imax] := sqr(imax);
WriteLn('Результат задания 4:');
for i := 1 to 21 do
Write(a[i], ', ');
end.