1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:
var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.
2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:
var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
end;
writeln('Кол-во: ',count);
end.
Всё достаточно просто div деление нацело(т.е. без остатка) mod (выделение остатка от деления)
a:=7;простое присвоение
b:=7*2=14;умножение
a:=0+3=3;при деление 3 на 6 остаток равен нулю и плюс 3
b:=0+14=14 при деление 3 на 14 остаток 0 и плюс 14
Вот и всё :D
5)
program gt5;
var n,k:integer;
begin
k:=0;
while n>0 do
begin
n:=n div 10;
k:=k+1;
end;
writeln(k);
end.
3)
program gt3;
var s,i:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if(i mod 2=0)then s:=s+i;
end;
writeln(s);
end.
2)
program gt2;
var k,i:integer;
begin
k:=0;
for i:=11 to 20 do
begin
if(i mod 2=1)then k:=k+1;
end;
writeln(k);
end.
1)
program gt1;
var x,y:real;
begin
x:=-3.1;
while x<1 do
begin
x:=x+0.1;
y:=<span>4*x*x*x-2*x*x+5;
writeln(y);
end;
end.
про 4 я не понял поэтому не смог решит</span>
Первое сообщение
32=2 в степени 5 => 80*5=400 бит
Второе сообщение 64=2 в степени 6 => 70*6=420 бит
400 < 420.
Во втором сообщении информации больше
Ответ:
y = 30
Объяснение:
-1) Начало
0) Ввод x = 5
x < 0 ? -> Нет => y = 4 * 5 + 10 = 30;
