М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
egorkamarkov0
egorkamarkov0
08.09.2021 07:07 •  Информатика

Много за ответ, только верный: ответить на вопросы по прогромированию:
1) какие знаки используются для написания коминтариев к программам? (язык pascal)
2)каким словом должна начинаться и заканчиваться процедурная часть в языке pascal?
3)в какие символы нужно заключать текст, чтобы pascal его выводил на экран? ​

👇
Ответ:
ivanalekseev20033
ivanalekseev20033
08.09.2021
1) Для комментариев в языке Pascal используются два слеша - //
Также используются фигурные скобки для блочных комментариев - { }
2)Для начала процедуры - begin, для конца - end.
3)В одинарные кавычки - 'Привет!'
4,5(52 оценок)
Открыть все ответы
Ответ:
kennysussus
kennysussus
08.09.2021
Python

a = True

b = int(input())

while (a):

   if b == 1:

       print("Понедельник")

       a = False

   elif b == 2:

       print("Вторник")

       a = False

   elif b == 3:

       print("Среда")

       a = False

   elif b == 4:

       print("Четверг")

       a = False

   elif b == 5:

       print("Пятница")

       a = False

   elif b == 6:

       print("Суббота")

       a = False

   elif b == 7:

       print("Воскресенье")

       a = False

   else:

       print("Такого дня недели нет")

       b = int(input())

Осуществляется ввод, если b > не 1 - 7, то программа запрашивает число до тех пор, пока пользователь не введет нужное число.

4,8(16 оценок)
Ответ:
tyon
tyon
08.09.2021
Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.
4,5(1 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ