Var a:array [1..7] of integer;i,n:integer;beginn:=0;For i:=1 to 7 dobeginread (a[i]);If (a[i] mod 10)=5 thenn:=n+1;end;writeln (n);end. При условии, что числа - целые
Компьютерные сети – это системы компьютеров, объединенных каналами передачи данных, обеспечивающие эффективное предоставление различных информационно-вычислительных услуг пользователям посредством реализации удобного и надежного доступа к ресурсам сети.Информационные системы, использующие возможности компьютерных сетей, обеспечивают выполнение следующих задач:· Хранение и обработка данных· Организация доступа пользователей к данным· Передача данных и результатов обработки решения перечисленных задач обеспечивается:· Дистанционным доступом пользователей к аппаратным, программным и информационным ресурсам· Высокой надежностью системы· возможностью оперативного перераспределения нагрузки· специализацией отдельных узлов сети для решения определенного класса задач· решением сложных задач совместными усилиями нескольких узлов сети· возможностью осуществления оперативного контроля всех узлов сети
Рассмотрим второе число 6 : у него 0 десятков 0=2^0-1 третье: 16 : один десяток (1) 1=2^1-1 четвёртое: 36 три десятка 3=2^2-1 пятое 76 7=2^3-1 шестое 156 15=2^4 -1
begin
k:=0;
for i:=1 to 7 do
begin
write(i,'-е число = ');
readln(a);
if a mod 10 = 5 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
1-е число = 68
2-е число = 15
3-е число = 751
4-е число = 935
5-е число = 47
6-е число = 512
7-е число = 370
k = 2