1)program p1;
var m,n: integer;
begin
write('вводите число: '); readln(n);
if n> =100 then
begin
m: = n mod 10;
writeln('последняя цира: ',m);
m: =n div 10 mod 10;
writeln('предпоследняя цира: ',m);
end;
end.
2)program p2;
var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;
vsr: real;
begin
write('вводите время езды(ч): '); readln(t1,t2,t3);
write('вводите скорость(км/ч): '); readln(v1,v2,v3);
d1: =v1*t1;
d2: =v2*t2;
d3: =v3*t3;
vsr: =(d1+d2+d3)/(t1+t2+t3);
writeln('средяя скорость= ',vsr: 1: 2,'км/ч');
end.
1. Назовите составные части компьютера.
2. Какую функцию выполняет процессор?
Процессор - центральное устройство компьютера. Назначение процессора: 1) управлять работой ЭВМ по заданной программе; 2) выполнять операции обработки информации.
3. Для чего используется оперативная память?
Оперативная память нужна для работы системных процессов в режиме реального времени: браузера, почтовых клиентов, офисных приложений, компьютерных игр и так далее. Она вторая по скорости работы в системе — ОЗУ идет сразу после кэша процессора или, как его еще называют, сверхоперативной памяти.
4. Приведите примеры устройств ввода и вывода.
Устройства ввода
Клавиатура
Мышь и тачпад
Планшет
Джойстик
Сканер
Цифровые фото, видеокамеры, веб-камеры
Микрофон
Устройства вывода
Монитор (дисплей)
Принтер
Графопостроитель (плоттер)
Проектор
5. Что такое порт?
Порт - это числовой идентификатор программы или процесса, которые обслуживают сетевые соединения на заданном сетевом адресе (IP-адресе).
6. Что такое материнская плата?
Печатная плата, являющаяся основой построения модульного устройства, например — компьютера.
Системная плата содержит основную часть устройства, дополнительные же или взаимозаменяемые платы называются платами расширений.
7. Какую функцию выполняет системная шина?
Компьютерная ши́на (англ. computer bus) в архитектуре компьютера — соединение, служащее для передачи данных между функциональными блоками компьютера. В отличие от соединения точка-точка, к шине обычно можно подключить несколько устройств по одному набору проводников.
Объяснение:
a,x:integer;
i,s:integer;
begin
write('Введите число ');
readln( a );
x:=a;
s:=0;
while ( x<>0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if (s mod 2 <>0 ) then
writeln('Верно')
else writeln('Неверно');
end.