Для презентаций, проведения интерактивных уроков и домашнего кинотеатра.
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
Вот решение,правда без таблицы
Ответ:
uses
Math;
var
F, X, Y: Double;
begin
Write ('Введите X, Y: ');
ReadLn (X, Y);
F := Sin (Power (Y, 2)) - Ln (X * Y);
WriteLn ('F = ', F :10 :5);
ReadLn;
end.
I = log_2(128) = 7 бит на символ
7*10 = 70 бит