№9 var n: integer; begin readln(n); if (n mod 10 = n div 1000) and (n div 10 mod 10 = n div 100 mod 10) then writeln('true') else writeln('false'); end.№11var n, a, b, c: integer; begin readln(n); c : = n mod 10; {третья цифра} b : = n div 10 mod 10; {вторая цифра} a : = n div 100; {первая цифра} if (a + b = c) or (a + c = b) or (b + c = a) then writeln('true') else writeln('false'); end.
oksana77768
08.06.2020
Program primer; const n =10; var a: array[1..n] of integer; s,i: integer; begin randomize; for i : =1 to n do begin a[i]: =random(19); readln(' ' ,a[i]); end; s: =0; for i : =1 to n do s: =s+a[i]; writeln('s=',s); readln; end. program primer2; const n =10; var a: array[1..n] of integer; s,i: integer; begin randomize; for i : =1 to n do begin a[i]: =random(19); readln(' ' ,a[i]); end; s: =0; for i : =1 to n do if a[i] mod 2=0 then s: =s+a[i]; writeln('s=',s); readln; end. program primer2; const n =10; var a: array[1..n] of integer; s,i: integer; begin randomize; for i : =1 to n do begin a[i]: =random(19); readln(' ' ,a[i]); end; s: =0; for i : =1 to n do if i mod 2 =0 then s: =s+a[i]; writeln('s=',s); readln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Впишите слова-ответы цифра, буква, знак препинания и т . д . 6 букв