1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний балл ', (m1+m2+m3)/3);
end.
Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний балл 4
2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.
Пример:
a = 123
b = 132
<span>Этот принцип впервые применила фирма IBM, что повлияло на ускорение темпов развития вычислительной техники.</span>
Для решения этого задания достаточно перевести указанное число в двоичную СС и посчитать нули.
158(10) = 10011110, отсюда следует что нулей три.
Ответ: 3.
8 минут=480 сек
V=v*t=192 000 *480=<span>
92160000</span>бит
<span>
92160000/8(байт)/1024(Кбайт)=</span><span><span>11250Кбайт
</span></span>V- объем информации
v- скорость передачи=192 000 бит/с
Pascal
var
x,a,b : integer;
r : real;
begin
readln (x,a,b);
r := (0.5*sqr(x))/(a+b);
writeln (r)
end.