даны 4 вещественных числа,выведите на экран те из них,значение которых отрицательны.срочно нужно!!!

Почему не работает калькулятор(ничего не работает кроме деления на 0)? Прошу помогите пажалуйста program calc; var operation: ch

ОльгаКныш [28]

Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.

0 0

1 год назад

Адресным пространством называется:1. соответствие разрядности внутренней шины данных МП и внешней шины2.интервал времени между д

Макс556677 [49]

объем адресуемой оперативной памяти

0 0

4 года назад

Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка

marigo-21 [711]

Было занятно сделать все это в виде одного оператора)))

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

begin
ReadlnString('->').ToWords(Arr(',','.'))
 .Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
 .Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
 .SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
 .Println(',')
end.

Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о

0 0

1 год назад

Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объём следующего высказывания: Я мыслю,

Лана 736 [413]

1 байт= 8 бит
34- кол-во символов
8*34=272 бита
ответ: 2

0 0

4 года назад

Вычислите пропускную способность канала связи, если известно, что за 3 сек было передано 6 файлов, каждый размером 256 байт

Натали55

l=q*t

q=l:t

q=6*256:3 = 512 байт/с или же 4 096 бит/с

0 0

4 года назад