Var a, b: integer; var c: string; begin writeln('Введите 1 число.'); readln(a); writeln('Введите 2 число.'); readln(b); writeln('Знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2 ЗАДАЧА var a, b: real; begin writeln('Зарабаток Пети:'); readln(a); writeln('Зарабаток Петрова:'); readln(b); if a>b then writeln('Петя заработал больше Петрова.') else if a=b then writeln('Петров и Петя заработали одинаково.') else writeln('Петров заработал больше Пети.'); writeln('Среднее: ', (a+b)/2); end.
zvezda-71
21.09.2021
program test; var n:string;i,c,sh:integer; begin readln(n); for i:=1 to length(n) do begin if (n[i]='б') or (n[i]='Б') then n[i]:='п';if (n[i]='п') or (n[i]='П') then n[i]:='б'; if (n[i]='в') or (n[i]='Б') then n[i]:='ф';if (n[i]='ф') or (n[i]='Ф') then n[i]:='в'; if (n[i]='г') or (n[i]='Б') then n[i]:='к';if (n[i]='к') or (n[i]='К') then n[i]:='г'; if (n[i]='д') or (n[i]='Б') then n[i]:='т';if (n[i]='т') or (n[i]='Т') then n[i]:='д'; if (n[i]='ж') or (n[i]='Б') then n[i]:='ш';if (n[i]='ш') or (n[i]='Ш') then n[i]:='ж'; if (n[i]='з') or (n[i]='Б') then n[i]:='с';if (n[i]='с') or (n[i]='С') then n[i]:='з'; end; writeln('1) ',n); for i:=1 to length(n) do begin if (n[i] = 'С') or (n[i] = 'с') then begin inc(c); n[i]:='ш'; end; if (n[i] = 'Ш') or (n[i] = 'ш') then inc(sh); end; writeln('2) ',n); writeln('В предложении буква "Ш" встречаеться:',sh); writeln('В предложении буква "C" встречаеться:',c); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Умножить числа в 2 системе счисления 1011, 01×101, 01=
1 0 1 1 0 1 =8+2+1+0,25=11,25=45/4
0 1 0 1 0 1 =4+1+0,25=5,25=21/4
45/4 * 21/4=945/16