Складіть таблиці істинності

Question 1

Accepted Answer

дано: решение:

m(p-pa)=50г m(p.в)=50*96/100=48

w%=96% m(h2so4)=m/m=48/98=0,4897959183673469≈0.49

найти (h2so4)=?

Question 2

Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

Accepted Answer

var a,b,s: integer;begin readln(a); while a>=10 do begin b:=a mod 10; s:=s+sqr(b); a:=a div 10; end; a:=a*a; s:=s+a; writeln(s); readln;end.В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

Question 3

1) проверить и исправить, если они есть, ошибки в буквосочетаниях: ча, ща, чу, щу, жи, ши. написать программу, реализующую проверку словарного диктанта. p.s. длина слова типа string равна 255 символов 2) составить алгоритмвычисления среднего арифметического значения температуры за месяц.

Accepted Answer

1) Представляем сам текст как массив элементов,потом в нём ищем элементы изменённые на неправильные т.е ставим гласную как ошибочную чю, щю, чи, щи, жю, шюи заменяем на правильные,выводим окончательные текст.2)Сначала создаём массив с числами температуры и вычисляем их,потом получаем их количество,всё складываем и делим на количество.

Question 4

Нужно нарисовать 8 окружностей в паскале.первая окружность радиусом 10. окружности должны находиться одна в другой.важно! рисовать нужно от меньшей окружности к большей​

Accepted Answer

uses graphabc;beginsetwindowsize(300,300);Arc(150,150,10,0,360);Arc(150,150,20,0,360);Arc(150,150,30,0,360);Arc(150,150,40,0,360);Arc(150,150,50,0,360);Arc(150,150,60,0,360);Arc(150,150,70,0,360);Arc(150,150,80,0,360);Arc(150,150,90,0,360);Arc(150,150,100,0,360);Arc(150,150,110,0,360);end.

Question 5

Сколько символов содержит сообщение, записанное с 16-ти символьного алфавита, если его объём составил 1/16 часть мегабайта?

Accepted Answer

в 16ти символьном алф. каждый символ весит 4 бита т.к. 2⁴=16 (1/16)*1024*1024*8=1024*512=524288бит( 1/16 часть мегабайта перевели в биты) 524288/4=131072 символа ответ:131072

Складіть таблиці істинності

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