// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var s:='1 января 2004 года';
s.MatchValues('\d+').Select(w->w.ToInteger).Sum.Println;
end.

Результат
2005

0 0

4 года назад

№2. В барабане для розыгрыша лотереи находится 8 шаров. Сколько информации содержит сообщение о первом выпавшем номере, например

tanuya

3 бита
2в 3 степени=8

0 0

4 года назад

Как известно площадь круга рассчитывается по формуле s=пr 2.составьте программу нахождения и вывода на экран значения площади кр

Степанв [2]

Var r,s:real;
begin
write('R = ');
readln(r);
s:=2*pi*r*r;writeln('Площадь круга = ',s:6:3);
end.

Пример:
R = 2
Площадь круга = 25.133

0 0

4 года назад

1)Файл размером 6 Мбайт передаётся через некоторое соединение за 2 минуты 30 секунд. Определите размер файла (в Мбайтах), которы

Malefisenta [7]

1.6×50/300=2 мбайта
3. ЖГАВБЕД

0 0

4 года назад