1 Дано трехзначное число. Определить какая из его цифр больше первая или вторая. 2 Дано четырехзначное число. Определить кратна
1 Дано трехзначное число. Определить какая из его цифр больше первая или вторая. 2 Дано четырехзначное число. Определить кратна ли 3 сумма его цифр. Это по Информатике. В паскале. Пж срочно
1) var a,a1,a2:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));if a1>a2 then write(a1,'>',a2) elsewrite(a1,'<',a2);end. 2) var a,a1,a2,a3,a4,s:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));a3:=strtoint(copy(inttostr(a),2,1));a4:=strtoint(copy(inttostr(a),2,1));s:=a1+a2+a3+a4;if s mod 3 = 0 then write('Сумма цифр ',a,'=',s,' - кратно 3')else write('Сумма цифр ',a,'=',s,' - не кратно 3');end.
Var a:array [1..100] of integer; <span>i:integer; </span> <span>begin </span> <span>randomize; </span> <span>for i:=1 to 100 do begin </span> <span>a[i]:=random(i); </span> <span>if (a[i]>=10) and (a[i]<=99) then write (a[i],' '); </span> <span>end; </span> <span>end.</span>
Для того что бы одним набором символов можно было писать на любом языке.
В старых кодировках ASCII И ANSI буквы отличные от латинских кодировались по разным правилам, замещая символы псевдографики, из-за малого размера таблицы (всего 256 знаков). Причем, эти кодировки несовместимы. Юникод же позволяет закодировать до 2 147 483 648 символов.