Эта программа присваивает значение переменной N, потом присваивает переменной sum значение 1, за тем в случае пока N больше 1, выделяет целое число при делении значения переменной N на 10 и присваивает это значение переменной N (повторяет эту операцию пока N больше 1), когда значение переменной N не больше 1 программа печатает на экран полученное в последнем цикле значение переменной sum.
Ответ:
1) выведет 4
2) 10
3)<span>sum := 0;
</span> while N >= 1 do
<em /><em />Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.
Ответ:
1. изменить кодовую страницу
2. ASCII каждый символ занимает 1 байт, поэтому можно закодировать максимум 256 различных символов. Для отображения всех алфавитов разработан Unicode
3. В китайском языке количество иероглифов превышает 256 (смотри вопрос №2)
Объяснение:
1)
uses crt;
var i,k:integer;
n:real;
begin
randomize;
read(k);
for i:=1 to k do
begin
n:=random;
write(n:0:2,' ');
end;
<span>end.
</span>2)
uses crt;
var i,k,n,a:integer;
begin
randomize;
read(k,a);
for i:=1 to k do
begin
n:=random(0,a);
write(n,' ');
end;
<span>end.</span>