program n1; var c,i: integer; a: array[0..6] of integer; beginwriteln('vvedite chislo'); readln(c); for i: =6 downto 0 do begin a[i]: =c mod 10; c: =c div 10; write(a[i]: 3); end; if(a[0]=a[6])and(a[1]=a[5])and(a[2]=a[4]) then writeln('simmetrichnoe') else writeln('nesimmetrichnoe'); readlnend.
trubchaninova71511
23.11.2021
1) var n,m,max,min: integer; begin write('введите число: '); readln(n); min: =9; max: =0; while n> 0 do begin m: =n mod 10; if m< min then min: =m; if m> max then max: =m; n: =n div 10; end; writeln('максимальное число: ',max); writeln('минимальное число: ',min); end.2)vari,count: integer; n,s: string; beginwriteln('введите число: '); readln(s); writeln('введите цифру: '); readln(n); for i: =1 to length(s) doif(s[i]=n)thencount: =count+1; writeln('количество раз, когда встречается цифра = ',count); end.
nikdenly
23.11.2021
Всего: 66. java int counter = 0; for(int i = 1; i < 10; i++) for(int j = 0; j < 10; j++) for(int k = 0; k < 10; k++) if(i+j+k==12) { system.out.println(string.valueof(i)+string.valueof(j)+string.valueof(k)); counter++; } system.out.println("итого: " + counter + " чисел");
program n1; var c,i: integer; a: array[0..6] of integer; beginwriteln('vvedite chislo'); readln(c); for i: =6 downto 0 do begin a[i]: =c mod 10; c: =c div 10; write(a[i]: 3); end; if(a[0]=a[6])and(a[1]=a[5])and(a[2]=a[4]) then writeln('simmetrichnoe') else writeln('nesimmetrichnoe'); readlnend.