Program Summa; var n, sum:integer;

begin
write('N = ');
readln(n);
sum:= 0;
repeat
sum:=sum+n mod 10;
n:=n div 10
until n=0;
write('Сумма цифр: ',sum,'')
end.
написать объяснение этой задачи почему я именно так решил

Question 1

Program Summa; var n, sum:integer;

begin
write('N = ');
readln(n);
sum:= 0;
repeat
sum:=sum+n mod 10;
n:=n div 10
until n=0;
write('Сумма цифр: ',sum,'')
end.
написать объяснение этой задачи почему я именно так решил

Accepted Answer

i =8 бит = 1 байт i= 9 кбайт = 9216 байт k= 48*х*6 = 288*х i=k*i 9216=288*x*1 x=9216/288=32 ответ:  32 строки

Question 2

Составьте программу для вычисления площади прямоугольного треугольника по его катетам a и b. только решите как в турбо паскале !

Accepted Answer

var a,b,c:real;beginwriteln('Введите данные о катетах');readln(a,b);c:=1/2*a*b;writeln('Площадь= ',c:0:2);readlnend.    Если паскаль абс, то предпоследнюю строку не обязательно.

Question 3

Программа.матрица. паскаль. как получить матрицу такого вида в паскале? 1 1 1 1 1 2 3 4 5 1 3 6 10 1 4 10 20 1 столбик и первая строчка равны 1 последующ. получаются путем сложения верхнего и стоящего слева

Accepted Answer

(делаю масив 10на10)   program Matrix; var a:array [1..10,1..10] of integer; i,q,b,f:integer; begin b:=0; f:=0; q:=1;  for i:=1 to 10 do begin a[i,q]:=1; end; i:=1;  for q:=1 to 10 do begin a[i,q]:=1; end;  for i:=2 to 10 do begin for q:=2 to 10 do begin  b:=q-1; f:=i-1;  a[i,q]:=a[i,b]+a[f,q]; end; end; readln end.

Question 4

Вычислить по информатике, 50 , , пример в файле ниже , сделать только номер 4

Accepted Answer

Переводим все в десятичную систему счисления.106₁₆ = 1 *16² + 0 * 16¹ + 6 * 16⁰ = 256 + 6 = 262₁₀1101101₂ = 1 * 2⁶ + 1 * 2⁵ + 0 * 2⁴ + 1 * 2³ + 1 * 2² + 0 * 2¹ + 1 * 2⁰ = 64 + 32 + 8 + 4 + 1 = 109₁₀101₁₀ + (262₁₀ ₋ 109₁₀) =  254₁₀

Question 5

Вычислите y =5/16-/3x²+1/+8/. /-модуль нужна програма

Accepted Answer

На Паскале:var x,y:real;beginwriteln('Введите значение x: ');readln(x);y:=5*abs(16-abs(3*sqr(x)+1)+8);writeln('y = ',y);end.

Program Summa; var n, sum:integer; begin write('N = '); readln(n); sum:= 0; repeat sum:=sum+n mod 10; n:=n div 10 until n=0; write('Сумма цифр: ',sum,'') end. написать объяснение этой задачи почему я именно так решил

Информатика: новые вопросы

Program Summa; var n, sum:integer;

begin
write('N = ');
readln(n);
sum:= 0;
repeat
sum:=sum+n mod 10;
n:=n div 10
until n=0;
write('Сумма цифр: ',sum,'')
end.
написать объяснение этой задачи почему я именно так решил