Var a, n, i, s : integer;
begin
read (n);
for i:=1 to n do
begin
read (a);
s:=s+a;
end;
write (s);
end.
В последовательном соединении
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Воть копируй, файл
Мне нужно 20 символов, это для того, чтобы они были
Условие: <span>Написать программу, которая проверяет, является ли четным введенное пользователем целое трехзначное число.
</span>
Путь решения: сохраняем в переменную введенное пользователем число, например в a получаем остаток деления на 2 и сравнимаем с 0. Если равен, то число - четное иначе не четное.
P.S. Так как число a используется в программе меньше или равно 1 раз, то это число можно не сохранять, а сразу работать с ним, в месте вызова функции.
Используемые языки: Pacal, Python, JavaScript
Язык: Pascal
//fpc 3.0.0
Var
a:integer;
Begin
read(a);
if (a mod 2 = 0) then write('Введенное число четное')
else write('Введенное число нечетное');
End.
ИЛИ
//PascalABC.NET (версия 3.2, сборка 1363)
Begin
print(ReadInteger() mod 2 = 0 ? 'Введенное число четное' : 'Введенное число нечетное')
End.
Язык: Python
print('Введенное число ' + ('нечетное', 'четное')[int(input()) % 2 == 0])
Язык: JavaScript
alert('Введенное число ' + (Number(prompt()) % 2 === 0 ? 'четное': 'нечетное'));
1) ннкнлки - по другому у меня не вышло и букву м вставить некуда
2) 48*40*40*8/8/1024 = 614 400 бит = 75Кбайт
3)625 = bin: 0010 0111 0001 => 5 единиц
Ответ:
в интернете можно поискать хотя я посмотрел там не так много информации можно через блютуз а ещё через USB кабель всё я понял эта папка называется аудио