Var N, S : Word; begin Write('Введите 3-хзначное число: '); ReadLn(N); S := 0; while N > 0 do begin S := S + N mod 10; N := N div 10; end; Write('Сумма цифр = ', S); if (S > 9) and (S < 100) then WriteLn(' - двузначное число') else WriteLn(' - не двузначное число'); end.
1. Вероятность вынуть первым красный карандаш определяется отношением количества красных карандашей к их общему числу, т.е. 2/4 или 1/2. 2. Теперь в коробке остался один красный карандаш, а всего карандашей - три. Вероятность вынуть красный карандаш равна 1/3. 3. Вероятность наступления обоих событий определяется произведением обоих вероятностей и составляет 1/2 × 1/3 = 1/6 Итак, два красных (а также два синих) карандаша можно вынуть с вероятностью 1/6. Сумма всех вероятностей равна 1, с вероятностью 1/6 оба карандаша будут красные, 1/6 - синие, значит на долю события, когда карандаши будут разного цвета остается 1 - 1/6 - 1/6 = 2/3
Язык программирования не указан, потому - самый простой вариант - программа на паскале. Даже на паскале задачу можно решать различными с массивом, без массива, со строками, без строк. Опять-таки, самый простой вариант - со строками. var s,p:string; n,i:integer; begin writeln('Введите символы:'); readln(s); n:=pos('.',s)-1; writeln('n = ',n); p:=''; for i:=1 to n do p:=s[i]+p; writeln('а)'); writeln(p); p:=''; if n mod 2 = 0 then i:=2 else i:=1; while i<=n do begin p:=p+s[i]; i:=i+2; end; writeln('б)'); writeln(p); end.
Пример: Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки n = 21 а) ,2s ,1s ыловмис ынаД б) Дн ивл 1 2
begin
Write('Введите 3-хзначное число: '); ReadLn(N);
S := 0; while N > 0 do begin S := S + N mod 10; N := N div 10; end;
Write('Сумма цифр = ', S); if (S > 9) and (S < 100) then WriteLn(' - двузначное число') else WriteLn(' - не двузначное число');
end.