1. Дима дарил котенка в желтых перчатках Вике
2. 7 гладиолусов подарил Саша
3. Ульянов учитель и ездит на автобусе, Савинов журналист и ездит на такси, а Жуков сварщик и ездит на метро
первый 0 означает что для вывода челой части будет использованно минимальное количество символов
второй 0 означает что число будет округляться до 0 знаков после запятой
2*2*2+2 это первый щас второй напишу
{1}
var
n: integer;
begin
write ('Введите заработанную сумму: ');
readln (n);
write ('Вы получите: ', (n*0.77)*0.61)
end.
{2}
var
a: array of double;
n, i: byte;
sum: longint;
begin
write ('Введите кол-во дробных чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;
for i:=0 to n-1 do
begin
writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i]));
inc (sum, trunc(a[i]));
end;
write ('Сумма целых частей: ', sum);
end.
{3}
var
a, b, c, p: double;
begin
write ('Введите стороны треугольника: ');
readln (a, b, c);
if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then
write ('Такой треугольник не существует')
else begin
p:=(a+b+c)/2;
write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' );
end;
end.
256 - мощность алфавита
Если 256 , то циф вес одного симв равен 8 бит
Тогда 5940000 бит : 8 бит = 742500 - получили кол-во всех симв
у нас 300 стр и на каждой 45 строк
300*45= 13500 - всего строк
вопрос стоит " Сколько симв в одной строке "
чтоб ответить на него мы 742500 : 13500 и получим 55
Ответ : 55
Надеюсь все понятно