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
Дано:
N1=16
N2=32
K1=100
K2=50
Найти: I
Формулы: N=2i, I=k*I
Решение:
16i=4, 32i=5
100*5=500
50*5=250
Ответ: 500 и 250
Ответ:
27.3 %, 72.7%
Объяснение:
1. Найдем объем, занятый файлами
1.12 Гб + 1.05 Гб + 17 Мб = 2.17 + 17 / 1024 Гб ≈ 2.1866 Гб
2. Найдем, какую часть в процентах составляет занятый объем от полного
2.1866×100/8 ≈ 27.3 %
3. Заполненная часть составит 100 - 27.3 = 72.7%
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var s:=0; var n:=0;
while s<=100 do begin
var a:=random(10); print(a);
s:=s+a; n:=n+1;
end;
println;
println('количество чисел',n,' Сумма ',s);
end.
Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.