Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6)123 div 10 7)1 div 2 8) 123 mod 1000 9) 100 mod 27 div 3 10) 100 div 5 mod 3 11)98725 div 1000 mod 10 12)100 mod 5 div 3
1) 10 div 15 = 0 2) 10 div 2 = 5 3) 10 mod 2 = 0 4) 10 mod 17 = 10 5) 123 mod 10 = 3 6)123 div 10 = 12 7)1 div 2 = 0 8) 123 mod 1000 = 123 9) 100 mod 27 div 3 = 6 10) 100 div 5 mod 3 = 2 11)98725 div 1000 mod 10 = 8 12)100 mod 5 div 3 = 0
Program z3; var A:array[1..3] of string; var B:array[1..3] of string; i,k:byte; begin writeln('Ввод названий газет: '); for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end; writeln('Ввод подписчиков: '); for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin if (A[i]='правда') and (B[i]= 'петров') then begin k:=i; writeln('Да, Петров выписывает газету ',A[i]); end; end; end.
Ввод названий газет: [1]Книга [2]Правда [3]Вера Ввод подписчиков: [1]Библиотекарь [2]Петров [3]Гундяев Да, Петров выписывает газету Правда
Program z3; const n=3; var A:array[1..n] of string; var B:array[1..n] of string; i,k:byte;
begin writeln('Ввод названий газет:'); for i:=1 to n do begin write('[',i,'] '); readln(A[i]);end; writeln('Ввод фамилий подписчиков:'); for i:=1 to n do begin write('[',i,'] '); readln(B[i]);end; k:=0; for i:=1 to n do if (A[i]='Правда') and (B[i]='Петров') then k:=i; if k<>0 then writeln('Да, Петров выписывает Правду.') else writeln('Петров не выписывает Правду.'); end.
Пример: Ввод названий газет: [1] Правда [2] Мир [3] Атеист Ввод фамилий подписчиков: [1] Петров [2] Дружаев [3] Базаров Да, Петров выписывает Правду.
2) 10 div 2 = 5
3) 10 mod 2 = 0
4) 10 mod 17 = 10
5) 123 mod 10 = 3
6)123 div 10 = 12
7)1 div 2 = 0
8) 123 mod 1000 = 123
9) 100 mod 27 div 3 = 6
10) 100 div 5 mod 3 = 2
11)98725 div 1000 mod 10 = 8
12)100 mod 5 div 3 = 0