1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.
1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.
В программе ввод с клавиатуры отключен.
const n=7;
var t:array[1..n] of integer;
sr,srp,sro:real;
i,kp,ko:integer;
begin
Randomize;
for i:=1 to n do
begin
// readln(t[i]); // ввод с клавиатуры
t[i]:=random(7)-3;
writeln(i,' - ',t[i]:2);
end;
sr:=0; srp:=0; sro:=0;
kp:=0; ko:=0;
for i:=1 to n do
begin
sr:=sr+t[i];
if t[i]>0 then begin srp:=srp+t[i]; kp:=kp+1; end;
if t[i]<0 then begin sro:=sro+t[i]; ko:=ko+1; end;
end;
sr:=sr/n; srp:=srp/kp; sro:=sro/ko;writeln('Средняя температура недели = ',sr:5:2);
writeln('Средняя положительная = ',srp:5:2);
writeln('Средняя отрицательная = ',sro:5:2);
end.
Пример:
1 - -3
2 - 1
3 - -2
4 - 2
5 - 2
6 - -3
7 - 0
Средняя температура недели = -0.43
Средняя положительная = 1.67
Средняя отрицательная = -2.67