Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.
Если правильно поняла задачу, на паскале это выглядит так:
var n,b,i,a,c:integer;
begin
writeln('input n'); readln(n);
writeln('input a'); readln(a);
c:=a;
for i:=1 to n do
begin
writeln('input b',i);
readln(b);
c:=c-b;
end;
writeln('c=',c);
<span>end.
Алгоритм и блок-схема по имеющейся программе делаются элементарно. </span>
<span>Выполнив указанные в сообщении действия, Наташа получила следующий код для цифрового замка:
133</span>
Что требуется сказать? что он значит? этот двоичный код?
Ответ:
1)Б
2)ж
3)А
4)В
5)г
6)е
7)д
Объяснение:
Все готово Удачі там тобі)))))