1)
program pr1; uses crt; var mas: array[100..999] of integer; i: integer; beginclrscr; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]); i: =100; {2 sposob}while i< =999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i: =i+1; end; i: =100; {3 sposob}repeatif mas[i] mod 9=0 then writeln(mas[i]); i: =i+1until i=999end.
2)
program pr1; uses crt; var mas: array[100..999] of integer; i,v: integer; beginclrscr; v: =0; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 17 =0 then v: =v+mas[i]; writeln(v); i: =100; {2 sposob}v: =0; while i< =999 do begin if mas[i] mod 17=0 then v: =v+mas[i]; ; i: =i+1; end; writeln(v); i: =100; {3 sposob}v: =0; repeatif mas[i] mod 17=0 then v: =v+mas[i]; i: =i+1until i=999; writeln(v); end.
uses crt; {вывод результата в отдельном окне}var i,j,n,m,max,min: integer; {ввод переменных}a: array[1..10,1..10] of integer; {ввод массива} beginclrscr; {очистка экрана вывода} writeln ('vvedite chislo n'); {выводим на экран сообщение}read(n); {вводим число} writeln ('vvedite chislo m'); {выводим на экран сообщение} read(m); {вводим число} writeln ('vvedite elementu massiva'); {выводим на экран сообщение} for i: =1 to n dofor j: =1 to m dobegin {откроем операторные скобки, чтобы каждый раз не задавать границы массива} readln(a[i,j]); {вводим массив} max: =a[1,1]; {задаем значения для минимума и максимума для сравнения с другими элементами} min: =a[1,1]; if a[i,j] > max thenmax: = a[i,j]; if a[i,j] < min thenmin: =a[i,j]; end; {закроем операторные скобки} writeln('max=',max,'min=',min); {вывод на экран сообщения} end.
Поделитесь своими знаниями, ответьте на вопрос:
Информатика 4 класс. может ли одно и то же понятие быть и родовым и видовым? объяснить ответ.