Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
1 Мбайт =2^23 бита
1024 =2^10
2^23 : 2^10=2^13 бита - объём сообщения
1024 =2^10 cимволов - длина сообщения
2^13 : 2^10 =2^3 =8 бит - один символ
2^8 =256 символов - мощность алфавита (количество символов в алфавите)
1.что можно делать в школе?
бегать, ходить,играть,учить,узнавать. и тд.
2. в школе есть:
книга, библиотека , стены,кабинеты, и тд.