program p;
var x: integer;
begin
writeln("Введите число: ");
readln(x);
if x>0 then x:=x*4 else x:=x*3;
writeln("Ответ: ",x); readln; end.
//Pascal ABC.NET 3.1 сборка 1219
procedure PerAndPlo(var s,p:real;a,b,c:real);
Var
pp:real;
begin
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;
Var
a1,b1,c1,p1,s1,a2,b2,c2,p2,s2:real;
begin
Writeln('Введите длины сторон первого треугольника:');
readln(a1,b1,c1);
Writeln('Введите длины сторон второго треугольника:');
readln(a2,b2,c2);
PerAndPlo(s1,p1,a1,b1,c1);
PerAndPlo(s2,p2,a2,b2,c2);
Writeln('Сумма периметров:',(p1+p2));
Writeln('Сумма площадей:',(s1+s2));
end.
Пример ввода:
1
2
3
4
5
6
Пример вывода:
Сумма периметров:21
Сумма площадей:9.92156741649221
Ксерокс относится к средствам копирования и размножения документов — (4)
30 + 10 = 40 возможных символов
округляем вверх. 64 = 2 в 6-ой. каждый символ занимает 6 бит.
6 * 5 = 30.
так как должно быть равное количество байт, то придется округлить вверх, чтобы делилось на 8.
32 / 8 = 4 байта на номер.
4 * 50 = 200 байт.
Ммммм... Транзисторы/ Прогрессоры