Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
#include <iostream>
using namespace std;
int main() {
int a, count = 0;
for(cin >> a; a >= 0; a /= 10)
if(a % 10 % 2 == 0) count++;
cout << count << endl;
return 0;
}
1) Коммуникации бывают материальными и информационными.<span>К материальным коммуникациям относятся процессы, которые связаны с передачей каких-либо физических объектов. Например, водные коммуникации, транспортные магистрали, газопроводы и т. п.Информационные коммуникации объединяют процессы, передающие информацию. Это печатные коммуникации, когда общение происходит через книги, журналы, газеты и т. д. Лектории, театры, церкви, концертные залы и пр. определяют аудиторныекоммуникации. Видеокоммуникации – это телевидение, кино, видеофильмы. Аудиокоммуникации связаны с радио, звукозаписями, телефоном. Компьютерные коммуникации – это универсальный вид общения, который обеспечивает передачу информации от текстов до компьютерных программ с помощью носителей (жестких, гибких и лазерных дисков), а также с помощью современных средств связи, включающих компьютеры.3)https://internet-marketings.ru/kak-rabotayut-poiskovye-sistemy/</span>
Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми. Я бы сделал так
program haracteristy;
uses crt;
var vozrast: Integer;
begin
clrscr;
writeln ('Введите свой возраст');
read (vozrast);
if (vozrast >0) and (vozrast <18) then
write ('Вы еще очень молоды')
else if vozrast >18 then
write ('Вы в расцвете сил')
else
write('Ошибка! Возраст не может быть меншье нуля');
end.