при использовании компьютерного алфавита 1 символ = 1 байт, значит
20000 символов = 20000 байт
20000 : 1024 = 19,5 кбайт
19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.
Ответ дал: Гость
var a,b: integer;
is7: boolean;
begin
readln(a);
b: =0;
is7: =false;
while a < > 0 do
begin
b: =b+a mod 10;
if a mod 10 = 7 then
is7: =true;
a: =a div 10;
end;
wrtieln('сумма цифр: ', b);
write('цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
Ответ дал: Гость
var i,s: integer;
begin
writeln('summa ');
for i: =100 to 999 do
if i mod 17 =0 then s: =s+i else s: =s+0;
writeln(s)
end.
Ответ дал: Гость
1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).
2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.
3. записать результат под горизонтальной чертой на вертикали единиц.
4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.
Популярные вопросы