Решение на<em> Pascal</em>:
var
a: integer;
begin
writeln('Введите число:');
readln(a);
if (a mod 5 = 0) then writeln('Число является кратным 5.') else writeln('Число не является кратным 5.')
<span>end.</span>
Для быстрого и удобного пользования вне компьютера. Он меньше,удобнее и легко можно переносить в любые комнаты и т.д. Чтобы узнавать информацию в интернете. В основном,конечно же в него играют в игры,ну и для учёбы он тоже не мало важен.
пароль не должен быть датой рождения родственника поэтому 3 вар. отпадает.2 вар. не самый надёжный пароль.1 вар. самый походящий по безопасности.
{ У тебя было <span>two+theere+fore+five, т.е. ты складываешь все тройки четверки и тд и делишь на их количество, т.е. всегда будет "1", нужно посчитать сумму и поделить на количество.
Подправил твой код:}</span>
program p1;
const n=20;
var i,a1,two,theere,fore,five,sum:integer;
sr:double;
a:array[1..20] of integer;
begin
two:=0;
theere:=0;
fore:=0;
five:=0;
sr:=0;
sum:=0;
for i:=1 to n do
begin
read(a1);
sum:= sum + a1;
a[i]:=a1;
if a[i]=2 then
two:=two+1;
if a[i]=3 then
theere:=theere+1;
if a[i]=4 then
fore:=fore+1;
if a[i]= 5 then
five:=five+1;
end;
writeln('Количество двоек: ',two);
writeln('Количество троек: ',theere);
writeln('Количество четвёрок: ',fore);
writeln('Количество пятёрок: ',five);
sr:=(sum)/n;
writeln(sr);
end.
