М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ПЕТУСШОГ
ПЕТУСШОГ
28.01.2022 14:32 •  Информатика

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

👇
Ответ:
Nickbb
Nickbb
28.01.2022
Var
  iNum: integer;
begin
  readln(iNum);
  writelniNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
end.
4,7(53 оценок)
Открыть все ответы
Ответ:
Fhh72
Fhh72
28.01.2022

ответ:

основным отличием вычислительной машины от таких счетных устройств, как счеты, арифмометр, калькулятор, заключается в том, что вся последовательность команд на вычисление предварительно записывается в память вычислительной машины и выполняется последовательно автоматически.   машина состояла из памяти, арифметико-логического устройства (алу), устройства ввода-вывода и устройства

1) устройство ввода передавало команды и данные в алу, откуда они записывались в память.

2) все команды, совокупность которых называется программой, записываются в память в соседние ячейки по возрастанию их адресов, а данные, которые требуют обработки,— в ячейки с произвольными адресами.

3) последняя команда программы – это обязательно команда остановки работы. каждая команда содержит код операции, которую необходимо выполнить, и адреса ячеек, в которых находятся данные, обрабатываемые этой командой. устройство содержит специальный регистр, который называется «счетчик команд». после загрузки программы и данных в память в счетчик команд записывается адрес первой команды программы. после чего вычислительная машина переходи, в режим автоматического выполнения программы.

4) устройство считывает из памяти содержимое ячейки памяти, адрес которой находится в счетчике команд, и помещает его в специальное устройство – «регистр команд». регистр команд хранит команду во время ее исполнения.

5) устройство расшифровывает тип операции команды, считывает из памяти данные, адреса которых указаны в команде, и приступает к ее выполнению. для каждой команды устройство имеет свой алгоритм обработки, который заключается в выработке сигналов для всех остальных устройств машины.

6) устройство читает команду, адрес которой находится в счетчике команд, помещает ее в регистр команд . этот процесс продолжается до тех пор, пока очередная исполняемая команда не оказывается командой останова исполнения программы.

7)   особым случаем можно считать команды безусловного или условного перехода. в этом случае команда перехода содержит адрес ячейки, куда требуется передать . этот адрес записывается устройством непосредственно в счетчик команд и происходит переход на соответствующую команду программы.

вот и все. если что- то надо пиши. объясню.

4,5(48 оценок)
Ответ:
natusestfons
natusestfons
28.01.2022

program we;  

const  

е=0.01;  

ro=0.57;  

ty=280;  

tz=320;  

py=180;  

p_kr=4.695;  

t_kr=190.55;  

n=8;  

m=21;  

type sm=array [1..8] of real;  

const x_i: sm=(0.841,0.023,0.069,0.009,0.019,0.014,0.013,0.012);  

t_i: sm=(190.55,305.43,369.82,425.16,408.13,469.65,460.39,507.35);  

p_i: sm=(46.95,49.76,44.33,38.71,37.19,34.35,34.48,30.72);  

var sa,sb: real; i: integer;  

a_sm, b_sm,ppkr,tpkr: sm;  

p_2,p1,p_sr,p_pr,t_sr,t_pr,pz,dp,t_x,t_pl,g,dt,h,p2,pl,p_x,s,c_r,b,c,a,c_st,f_a,f_b,f_c,z_sr,z,x1,l,sppkr,stpkr: real;  

function fz(x1: real): real;  

begin  

fz: =exp(ln(x1)*3)-sqr(x1)+x1*p_sr*(sqr(sb)*p_sr+sa-sb)-sa*sb*sqr(p_sr);  

end;  

begin  

sa: =0;  

sb: =0;  

sppkr: =0;  

stpkr: =0;  

for i: =1 to 8 do  

begin  

a_sm[i]: =((0.0867*t_i[i])/(p_i[i]*t_sr))*x_i[i];  

b_sm[i]: =((0.4278*sqr(t_i[i])*sqrt(/(p_i[i]*sqr(t_sr)*sqrt(*x_i[i];  

ppkr[i]: =(p_i[i]*x_i[i]);  

tpkr[i]: =(t_i[i]*x_i[i]);  

sa: =sa+a_sm[i];  

sb: =sb+b_sm[i];  

sppkr: =sppkr+ppkr[i];  

stpkr: =stpkr+tpkr[i];  

end;  

l: =0;  

for i: =1 to m do  

begin  

p_2: = py;  

t_sr: =(ty+tz)/2;  

repeat;  

p1: = p_2;  

p_sr: =(p1+p_2)/2;  

p_pr: =p1/sppkr;  

t_pr: =t_sr/stpkr;  

a: =0;  

b: =1;  

repeat  

f_a: =fz(a);  

f_b: =fz(b);  

c: =(a+b)/2;  

f_c: =fz(c);  

if(f_c*f_a)< 0 then b: =c  

else a: =c;  

c_st: =(a+b)/2;  

until (abs(c_st-c)) z_sr: =c;  

s: =0.03415*(ro*l)/(z_sr*t_sr);  

pz: =py*exp(s);  

p_2: = pz*exp(s);  

dp: =pz-p1;  

p_2: =pz;  

until dp l: =l+100;  

writeln ('l=', l, ' p=', p_2, ' z=', z_sr );  

end;  

end.

4,7(66 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ