⇢ Вопросы и ответы ⇢ Программирование ⇢ Другие языки и технологии

ВОТ ЭТИ СЛОВАА: s:=''; readln(a); while not (a=0) do begin a := a div 2; c := a mod 2; if c=0 then s:=s+'0' el

s:=''; readln(a);
while not (a=0) do
begin
a := a div 2;
c := a mod 2;
if c=0 then s:=s+'0' else s:=s+'1';
end;
writeln(s);

Wheelman Wheelman, огромное спасибо, очень помогли!

МЛ

Максим Лямин

переменной s присвоено считанное значение а.
цикл пока ( а не равно 0) действуй
начало программы
переменной а присвоить значение: деление нацело !
переменной с присвоить значение: нахождение остатка
если с = 0 тогда к переменной s приписываем 0, иначе приписываем 1.
конец тела цикла
вывод S
вот так

Установите логические операции следующего выражения: not (c)or(a and b)or not(a)?1)not c;2)not a;3)a and b;4) и т. д.

что не так program lаn15; var x : integer ; begin writeln ('введите число'); read (x); if (x/2) and (X/3) then writ

какое значение будет при выполнении последовательности операторов C:=1; P:=0;while C>P do P:=P+C; C:=C+1writeln (P*C)

как решить программу. var k, s: integer; begin s:=1; k:=0; while k<13 do begin s:=s+2*k; k:=k+4; end; write (s+k); end.

как обратиться к компоненте файла допустим в операторе if ...mod 2=0 then вместо точек нужно как то обратиться к комп..

Как занести нечетные элементы двумерного массива в одномерный массив? if a[i, j] mod 2 <> 0 then дальше не знаю :)

С++, выход из цикла while. int n; do { cout << "V or S (1 or 2): " << endl; cin>> n; if (n==1) cout<<"qq"<

как выполнить сортировку, что бы программа выдавала курс студентов по возрастанию (любая сортировка кроме пузырьком) type studs = record name: string[25]; k,o: integer; w:string; end;var arr_studs: array[1..15] of studs; sum: integer; a: real; i,n: byte;begin write('Количество студентов: '); readln(n); sum := 0; for i:=1 to n do with arr_studs[i] do begin write(i,'-й студент: '); readln(name); write('курс: '); readln(k); write(' Оценка: '); readln(o); sum := sum + o; end; a:= sum / n;writeln; writeln('Студенты с оценкой выше средней: '); for i:=1 to n do if arr_studs[i].o > a then writeln(arr_studs[i].name);readln;end.

A:=1; B:=2; C:=3; if (A<B) and (B<C) then D:=A+B else D:=B-A; wrireln ('D=', D:2)