Program massiv;
var a: array[1..10] of integer;
b,i,p: integer;
begin
p:=1;
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
writeln ('Введите число');
readln (b);
for i:=1 to 10 do
begin
if a[i]<b then
p:=p*a[i];
end;
for i:=1 to 10 do
write (a[i],' ');
writeln;
writeln ('Произведение элементов, меньших ',b,', равно ',p);
end.
Посмотри, по формуле получилось.
а данные будут другие(не как в задании) потому, что дата=Сегодня,
т.е. после даты приема сотрудника +1год стажа.
Это всё одно и тоже, потому что компьютерный специалист и программист это одно и тоже
а комплексы не знаю как это относится к другим
Акие можно использовать символы в имени файла? В именах файлов рекомендуется использовать русские и латинские буквы, цифры, пробелы и знаки препинания. Однако имя файла не следует начинать с точки, а также использовать в имени квадратные [ ] или фигурные { } скобки. Недопустимыми для имен файлов являются следующие служебные символы / \ | : * ? “ < >