Var k,om :integer;
begin
om:=1;
for k:= 1 to 24 do
if k mod 3 = 0 then
begin
om:=om*2;
writeln('Через ',k,' часов - ',om);
end;
<span>end.</span>
№4.1
38*64*15=36480
№4.2
в самом сообщении нужно посчитать кол-во всех букв, пробелов, знаков препинания , у меня получилось 41
№4.3
В данной задаче применим формулу Шеннона
Вероятность того,что вытащили красный карандаш= 1/32
х=㏒2(1:(1:32))= 5
Ответ :5
№4.4
1,44*2/3= 0,96 МБ
1КБ=1024 байта
1МБ=1024 КБ
0,96 МБ= 0,96*1024*1024=1006632,96 байт
№4.5
пуст точка-0
тире-1
я не знаю азбуку Морзе...
#include <math.h>
#include <iostream.h>
int main ()
{
double a,c; //a - сторона квадрата, с - диагональ.
cin >> a; // вводим сторону квадрата
cout << " Длина диагонали: " << sqrt(2*sqr(a));
system("pause");
return 0;
}
Program old;
var
s: real;
y: integer;
begin
s:=20;
y:=1626;
writeln('Сейчас 1626 год и я положил в банк: ', s);
while y<2003 do
begin
s:=(s+(s*0.04));
y:=(y+1);
writeln(s,'$ В банке на ', y, ' год');
end;
end.
Итого: 52795743.6290571$ В банке на 2003 год