Условие на русском языке: Айбару нравятся все числа, которые делятся на 2 или на 5 Найдите количество целых чисел от 1 до У которые нравятся Айбару - Языки Только перечисленне Входные данные
var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
Грубо говоря оператор switch проверяет значение переменной под скобкой.
switch (variableName) // в скобках переменная которую вы проверяете (string или integer) { case value1: // вместо value1 можно написать число или строку, с которым вы сравниваете variableName { // код в этих скобках будет выполняться в случае если переменная variableName будет равна значению case ( в данном случае value1 ) } break; // break нужен для того чтобы не выполнялся код из следующих case. case value2: { // Если variableName == value2 } break; case value3: case value4: case value5:{ // если variableName будет равна одному из трех значений (value3,value4,value5) } default:{ // код будет выполнен если ни один из case не сработал. Т.е если переменная не была равна ни одному из определенных значений. } break; }
Рекомендую смотреть код и комментарии в редакторе кода, потому что здесь перенос строки все портит (читать невозможно).
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!