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.
ТрассировкаПроцесс пошагового выполнения программы. В режиме трассировки программист видит последовательность выполнения команд и значения переменных на данном шаге выполнения программы, что позволяет легче обнаруживать ошибки. Трассировка может быть начата и окончена в любом месте программы, выполнение программы может останавливаться на каждой команде или на точках останова, трассировка может выполняться с заходом в процедуры и без заходов, а также осуществляться в обратном порядке.
Ответ:
Отяаьщшьпь беняй, м фцхый эюьхтпнщ. Яэьгпнацщям, сн эьхсыь. Пьа ьы, эюцпнщ! Эьщбхынчшн — м ъыцщ ятом ъбсютдьъ Ц хныьяецпь фснщ ынрюнс ц эьгпнщ. Ьяанщйыиг ътеанщ хн яьоьч птяац, Н ьыц ътым янъц яоцщц я эбац. М — ьсцы, н ынрщиг ытптфс ыт яьеатёй, Ц ытщтэит ёбашц ыиыт п етяац. Ыц сюбхтч б ътым, ыц щлоцъьч ыта. М бяанщь эьл ын цягьст щта. Ь, шншцъ ытьозмаыиъ шнхнщям ъцю Аьч эьюьч, шнш пяаютенщ м фцхыц юняяпта!
Каждая буква заменяется на следующую в размере 14. То есть А это Н и т.д.
int - целое число
float - вещественное число одинарной точности
double - вещественное число двойной точности
char - один символ
bool - логический
woid - тип без значения
555 - int
136.75 - float double
Катя - string (строка символов)
"false" - bool
Python 3:
k = 0
for a in range(10, 100):
[tab] for b in range(10, 100):
[tab] [tab] if ((a+b)<=100):
[tab] [tab] [tab] k+=1
[tab] [tab] [tab] print('k=', k)
P.S. один [tab] - 4 пробела
