#include <iostream> // для операции вывода cout using namespace std; // вместо 'std::' перед cout
int main() { // цикл в промежутке [1; 9] с шагом 2 (1, 3, ...) for (int i = 1; i <= 9; i += 2) { cout << i << ' '; // вывод текущего числа } return 0; // возврат из основной функции }
vuyakovleva
29.09.2022
Паскаль АВС. Программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное.
Program Alyatu; uses crt; const n=4; var i,z,s:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Используя признак делимости, программа оперделяет делится ли введённое 4-значное число на 3'); writeln('Введите число'); repeat readln (z); until ((z>0) and (z<power(10,n))); for i:=1 to n do begin s:=s+z mod 10; z:=z div 10; end; if (s mod 3=0) then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); end.
gunel1988alieva
29.09.2022
Паскаль АВС:
Program Ainur59; uses crt; const n=10; var i,j:integer; matr:array[1..n,1..n] of integer; diag:array[1..n] of integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов'); randomize; writeln('Матрица: '); for i:=1 to n do begin for j:=1 to n do begin matr[i,j]:=random(100)-50; write(matr[i,j]:4,' '); if i=j then diag[i]:=matr[i,j]; end; writeln(); end; writeln(); writeln('Mассив диагональных элементов:'); for i:=1 to n do write(diag[i]:4,' '); end.
using namespace std; // вместо 'std::' перед cout
int main() {
// цикл в промежутке [1; 9] с шагом 2 (1, 3, ...)
for (int i = 1; i <= 9; i += 2) {
cout << i << ' '; // вывод текущего числа
}
return 0; // возврат из основной функции
}