Задать вопрос!

Задать вопрос!

Все категории

4 года назад

7

Pascal 50 баллов! Выберите один вариант, задание с вариантами на скриншоте

Pascal 50 баллов!
Выберите один вариант, задание с вариантами на скриншоте

Информатика

1 ответ:

BorisLV [17]4 года назад

0 0

Ответ:

Сумма цифр числа X

Объяснение:

Читайте также

Написать программу. Найдите сумму и среднее арифметическое всех двузначных чисел кратных 3.

RomanShkutov [14]

Program n1;
var sum,k,i: integer;
begin
k:=0;
sum:=0;
for i:=10 to 99 do if i mod 3=0 then begin
k:=k+1;
sum:=sum+i;
end;
writeln('сумма: ',sum);
write('срзнач: ',sum/k);
end.

0 0

4 года назад

Помогите пожалуйста быстрее

favorite228

d) 101₂ = 1*2²+0*2¹+1*2⁰ = 4+1 = 5₁₀

210₃ = 2*3²+1*3¹+0*3⁰ = 18+3 = 21₁₀

101₂ + 210₃ = 5₁₀ + 21₁₀ = 26₁₀

e) 404₆ = 4*6² + 0*6¹ + 4*6⁰ = 144 + 4 = 148₁₀

205₈ = 2*8² + 0*8¹ + 5*8⁰ = 128+5 = 133₁₀

404₆ - 205₈ = 148₁₀ - 133₁₀ = 15₁₀

f) 56₁₆ = 5*16¹+6*16⁰ = 80+6= 86₁₀

37₇ - <em>в 7сс число не может содержать цифры 7 в записи. Либо опечатка в задании, либо проверка на внимательность. </em>

0 0

4 года назад

Ученик использовал переменые для создания игры. что тут нужно сделать

Cekpem [7]

8.Задать на значение ответ

Говорить"Столица Японии-Токио"в течении 2 секунд

Говорить"Молодец"в течении 2 секунд

0 0

4 года назад

составьте на паскале программу возведения в N-ую степень целого числа X

Сэмэн

program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
   begin
     mt:=mt*x;
   end;
writeln(x,' в степени ',n,' равно ',mt);
end.

0 0

3 года назад

Прочитать ещё 2 ответа

Помогите пожалуйста составить программу на языке Паскаль)))

lelyadora

Var a:array[0...6] of integer;
sum, i, N, x : integer;
begin
readln(N);
for i 1 to N do begin
sum:=0;
readln(x);
if x mod3 = 0
sum:=sum+x
end;
writln(sum);
end.

0 0

4 года назад