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
Х2+рх+q=0
x1+x2=-p
x1•x2=q.
Подпр1(A,B,B) - аргумент X функции - это А = 3, аргумент Y функции - B=5, результат - аргумент F, то есть возврат значения B
X = X + 2 = 3 + 2 = 5
Y = Y + 3 = 5 + 3 = 8
F = X + Y = 13
B = 13
Ответ: 13
1) 3,125 КБ = 24576 б (килобайт в биты)
2) 2,525 МБ = 2097152 Б (мегабайт в байты)
3) 4,75 ГБ = <span>4194304 КБ</span> (гигабайт в килобайты)
Знаки расставь сам, а вообще Марина Права, перепроверь где биты (б), а где байты (Б)
1) интер 2) стрил алт Т и Ф3