Var n, k: integer; begin writeln('введите 2 числа через пробел'); readln(n, k); if (strtoint(inttostr(n)[1]) > strtoint(inttostr(k)[1])) then writeln('у первого числа первая цифра больше'); if (strtoint(inttostr(n)[1]) < strtoint(inttostr(k)[1])) then writeln('у воторого числа первая цифра больше'); if (strtoint(inttostr(n)[1]) = strtoint(inttostr(k)[1])) then writeln('у первого числа и воторого числа первые цифры равны'); end.
vdk81816778
15.10.2020
// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =readarrinteger('введите 20 элементов массив а'+newline,20); write('a: '); a.println; var b: =a.where((v,i)-> i.isodd).toarray; write('b: '); b.println; var c: =a.where((v,i)-> i.iseven).toarray; write('c: '); c.println end. пример введите 20 элементов массив а -49 11 -39 15 43 -9 30 25 9 25 42 -39 -26 1 -49 -43 33 -46 -1 -24 a: -49 11 -39 15 43 -9 30 25 9 25 42 -39 -26 1 -49 -43 33 -46 -1 -24 b: 11 15 -9 25 25 -39 1 -43 -46 -24 c: -49 -39 43 30 9 42 -26 -49 33 -1
Roman913
15.10.2020
Program pr; var a, b, c: array [1..20] of integer; i, c1, c2: integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do if i mod 2 = 0 then begin b[c1]: =a[i]; inc(c1); end else begin c[c2]: =a[i]; inc(c2); end; for i: =1 to 20 do write(b[i], ' '); for i: =1 to 20 do write(c[i], ' '); end;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Даны два натуральных числа.определить в каком числе первая цифра больше? написать программу