// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
Double kmh, ms;
// ввод или получение
//...
//приводим к одному измерению - к километрам в час
ms *= 3.6;
if (ms > kmh) printf("величина в метрах в секунду больше, чем в километрах в час");
else printf("величина в километрах в час больше, чем в метрах в секунду");
if (ms == kmh) // если равны допишешь если надо
9216*60=552960 байт
552960/1024=540 кб
9216/1024=9 кб
9*60=540 кб
540/1024=0,52 мб
Г=11
010 не подходит-длина кода не будет минимальной, 00 не подходит. будут вопросы с буквой Б, 01 не подходит-неоднозначно с буквой А
Var a,b:real;
begin
write(' введите параметры уравнения ax+b=0 a и b');
read(a,b);
if (a=0) and (b=0) then write('уравнение имеет бесконечно много решений ');
if (a=0) and (b<>0) then write('уравнение не имеет решений');
if (a<>0) then write(' уравнение имеет один корень', -b/a);
end.