begin
var a := 123456;
var s := a.ToString;
var Sum := s.Aggregate(0, (s, x) -> s + x.toDigit);
Print(Sum, Sum / s.Length)
end.
Флеш-память (англ. flash memory) — разновидность полупроводниковой технологии электрически перепрограммируемой памяти (EEPROM). Это же слово используется в электронной схемотехнике для обозначения технологически законченных решений постоянных запоминающих устройств в виде микросхем на базе этой полупроводниковой технологии. В быту это словосочетание закрепилось за широким классом твердотельных устройств хранения информации.
var B:array [1..1000] of real;
c:integer;d:real;
begin
writeln('Vvedite N=');read(a);
d:=0;
for c:=1 to n do
if(c mod 2= 0) then d:=d+b[c];
b[n]:=d;writeln(b[n]);readln;readln;
end;
Мне кажется будет 5^5=3125 символов, если по частной формуле Хартли
Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...