Напишите программу, используя цикл while, которая будет генерировать случайное число от 1 до 10 каждое повторение цикла. Добавьте счетчик повторений цикла, чтобы определить количество повторений до завершения цикла. Условие завершение цикла: случайно сгенерированное число равно 3. Задание 2.
Напишите программу, которая будет проверять правильность вводимых данных. В случае неправильного ввода, должна быть выведена ошибка ввода и предложение ввести данные снова.
программа пайтон
Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:
- Что же такое интернет,
- Использование интернета в жизни людей,
- Как интернет влияет на людей,
- Интернет для ребенка,
- Можем ли мы прожить без интернета,
- Интернет в отдельном школьном классе,
- Личное отношение автора к интернету.
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.