Kisuha8465
?>

Решить 4 по информатике (программа pascal 1.определите значение целочисленных переменных а и b после выполнения фрагмента программы: а : = 42; b : = 14; а : = а div b; b : = a*b; а : = b div a; 2.определите значение целочисленных переменных х, у и t после выполнения фрагмента программы: х : =5; у : = 7; t : =х; х : =ymodx; y : = t; 3.определите значение целочисленных переменных а и b после выполнения фрагмента программы: а : = 6*12 + 3; b : = (а div 10) +5; а : = (b mod 10) +1; 4.определите значение целочисленных переменных х, у после выполнения фрагмента программы: х : =336; у : = 8; х : =x divy; y : = x mod y;

Информатика

Ответы

Алексей Ксения
Const   n=63; var   m: array[1..n] of integer;   i: integer; begin   randomize;   for i: =1 to n do begin       m[i]: =random(101)-50;       write(m[i],' ')       end;   writeln;   writeln('найденная сумма равна ',m[3]*2+m[10]+5) end. пример 24 -15 -26 -33 -9 -4 -40 -33 -24 -48 -27 -12 8 9 -10 35 -2 -35 -3 -19 -8 5 -43 -26 -22 -5 46 -7 37 -3 22 11 -46 -23 49 -37 15 -45 -8 9 24 -32 30 -16 -12 -31 -28 6 -44 1 38 -44 -29 49 -45 -32 -22 -50 39 46 0 17 -20 найденная сумма равна -95
nord0764
Var s: string; cnt, i,j: integer; begin readln(s); for i: = 1 to length(s) do   begin       if s[i] = 'a' then  write('a');       write(s[i]);       if s[i] = 'z' then cnt: = cnt+1;   end; writeln; writeln('кол-во "z" в слове: ', cnt); for i: = 1 to length(s) do   if s[i] < > s[length(s)-i+1] then begin   writeln('это не палиндром');   halt;   end;   writeln('это палиндром'); end. пример: abazaba aabaazaabaa кол-во "z" в слове: 1 это палиндром

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решить 4 по информатике (программа pascal 1.определите значение целочисленных переменных а и b после выполнения фрагмента программы: а : = 42; b : = 14; а : = а div b; b : = a*b; а : = b div a; 2.определите значение целочисленных переменных х, у и t после выполнения фрагмента программы: х : =5; у : = 7; t : =х; х : =ymodx; y : = t; 3.определите значение целочисленных переменных а и b после выполнения фрагмента программы: а : = 6*12 + 3; b : = (а div 10) +5; а : = (b mod 10) +1; 4.определите значение целочисленных переменных х, у после выполнения фрагмента программы: х : =336; у : = 8; х : =x divy; y : = x mod y;
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ashkiperova6
ksyrika
maksimovskiy7657
gub191025
office46
Lukina
elenakarpova709
Ivanovna
Yurevna-Anatolevna
iraira761
Вадимовна
dashafox8739
Shamil
oshemkov579
kotikdmytriy11